Составте программу, которая формирует массив из 16-ти случайных чисел от -20 до 20 и находит индексы чётных элементов

1

Ответы и объяснения

2011-12-06T21:22:34+04:00

program r1;

 var A:array [1..16] of integer

 i:integer

Begin

 for i:=1 to 16 do A[i]:random(41)-20;

 for i:= 1 to 16 do

  if A[i] mod 2 = 0 then

    writeln(' i,' ');

end.