Question

Срочно ! У нас программа Pascal ABC !
Ввести массив случайными числами, найти элементы массива равный 11, найти сумму всех чётных элементы массива 50

Answer 1

Ответ:

program vlasov_loc;

   var i, s: integer;

   var a: array [1..50] of integer;

begin

   randomize;

   for i:= 1 to 50 do a[i]:= random(100);

   for i:= 1 to 50 do if a[i] mod 2 = 0 then s:= s + a[i];

   writeln ('a[11] = ', a[11]);

   writeln ('Сумма чётных элементов - ', s)

End.

   

Объяснение:

Слишком неоднозначно задание, в ответе лишь пример алгоритма что нужен.