Question

Вводится массив(можно использовать случайное заполнение) Вывести на экран количество нечётных элементов массива и индексы этих элементов. Pascal

Answer 1

const n=20;

var

a:array [0..n] of integer;

k,i: integer;

begin

randomize;

k:=0;

writeln('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random(100);

write(a[i],' ');

end;

writeln;

writeln('Индексы нечетных элементов:');

for i:=1 to n do

if a[i] mod 2 <> 0 then

 begin

 write(i,' ');

 k:=k+1;

end;

writeln;

writeln('k = ',k);

end.

Пример:

Исходный массив:

62 21 39 17 75 30 10 29 80 1 88 93 50 48 17 9 41 2 1 8  

Индексы нечетных элементов:

2 3 4 5 8 10 12 15 16 17 19  

k = 11

Answer 2

Конечно, я могу помочь вам написать такую программу на языке Pascal. Вот пример кода:

arduinoCopy code
program CountOddNumbers;

const
  SIZE = 10; // Размер массива
  MAX_VALUE = 50; // Максимальное значение элементов массива

var
  arr: array[1..SIZE] of integer;
  i, oddCount: integer;

begin
  // Заполнение массива случайными числами
  randomize;
  for i := 1 to SIZE do
    arr[i] := random(MAX_VALUE) + 1;

  // Подсчет количества нечетных элементов и их индексов
  oddCount := 0;
  writeln('Нечетные элементы массива:');
  for i := 1 to SIZE do
  begin
    if arr[i] mod 2 = 1 then // Проверка на нечетность
    begin
      inc(oddCount);
      write(i, ' ');
    end;
  end;

  // Вывод результатов
  writeln;
  writeln('Количество нечетных элементов: ', oddCount);
  readln;
end.

В этой программе мы сначала создаем массив из 10 элементов и заполняем его случайными числами от 1 до 50. Затем мы перебираем все элементы массива и проверяем, является ли элемент нечетным. Если да, то мы увеличиваем счетчик нечетных элементов и выводим индекс этого элемента на экран. В конце мы выводим общее количество нечетных элементов в массиве.

Надеюсь, это поможет вам решить вашу задачу!