Question

1. Задать массив m(7)случайными числами от 12 до 73.
2. Найти количество элементов массива , стоящих на нечетных местах.
3. Вывести на экран элементы массива кратные 5.

Answer 1

Ответ:

Объяснение:

var

m:array[1..7] of integer;

i,kol:integer;

begin

for i:=1 to 7 do

begin  

m[i]:=random(12,73);

write('m[',i,']= ',m[i],' ') end;

writeln('');

writeln('Элементы массива кратные 5');

for i:=1 to 7 do

begin

if i mod 2=1 then kol:=kol+1;

if m[i] mod 5= 0 then  

writeln (m[i]);

end;

writeln('Количество элементов, стоящих на нечётных местах = ',kol);

end.