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

1

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

2013-12-17T20:49:19+04:00
Program z10;
var a,b: Array [1..8] of integer;
i,s,k:integer;
Begin
Randomize;
For i:=1 to 8 do
begin
a[i]:=random(10);
if(a[i] mod 2=0)then begin
s:=s+a[i];
k:=k+1;
end;
end;
write(s,' ',k);
end.