Question

Составьте программу, которая заполняет массив a[1..8] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с четными значениями и сумму элементов массива с нечетными значениями.

Answer 1

Var
a:array [1..8] of integer;
i,summ,n:integer;
begin
randomize;
for i:=1 to 8 do begin
a[i]:=random(1,10);
write(a[i], ' ');
end;
n:=0;
summ:=0;
for i:=1 to 8 do
if a[i] mod 2=0 then
n:=n+1
else
summ:=summ+a[i];
writeln('');
writeln('Количество четных элементов ',n);
writeln('Сумма нечетных ',summ);
end.