Cоставьте программу которая заполняет массив а [1..13] целыми случайными числами в диапазоне от -3 до 7 и выводит на экран исходный массив и количество элементов с четными положительными значениями

1
А на каком языке? pascal, c++ или чистый си?
на паскале?

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

2013-12-08T17:01:23+00:00
Var
i,c:integer;
a:array[1..13] of integer;
begin
randomize;

for i:=1 to 13 do begin
a[i]:=random(10+1)-3;
writeln(a[i],' ');
if (a[i] mod 2=0) and (a[i] >0) then inc(c);
end;

writeln('Количество = ',c);
end.