• 
  • 24 December 2020
  Информатика
  • Автор: seboctian

  

  Решите пожалуйста через паскаль. Дан массив размера N. Вывести последний нечётный элемент массива и его номер

• 
  • 24 December 2020
  • Ответ оставил: elenaklon

  var a:array of integer;

  i,n,z,k:integer;

  begin

  write('Введите количество элементов массива: ');

  read (n);

  a:=new integer[n];

  for i:=0 to n-1 do a[i]:=random(89)+1;

  z:=a[0];

  k:=0;

  for i:=0 to n-1 do if a[i] mod 2 <> 0 then

  begin

  z:=a[i];

  k:=i;

  end;

  writeln ('Массив: ',a);

  write ('Последний нечётный элемент массива ',z,' и его номер ',k)

  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (27.02.2025) наш сайт содержит 16354 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы