Question

Составьте программу которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и
б) находится индексы четных элементов

Answer 1

Решение задачи на языке PascalABC:

Program n1;

Var a:array[1..16] of integer; i:integer; //Описываем переменные

Begin

For i:=1 to 16 do Begin //цикл на перебор массива

 a[i]:=random(40)-20; //заполняем массив

 write(a[i],' '); //выводим значение каждого элемента массива

End;

writeln; //пропускаем строчку при выводе

For i:=1 to 16 do Begin //цикл на перебор массива

 if a[i] mod 2 = 0 then //условие чётности

   writeln('Элемент со значением (',a[i],') под номером #',i,' является чётным'); //вывод чётных элементов и их номеров

End;

End.