Дан массив из 20 целостных элементов. Написать программу, которая подсчитывает и выводит на экран сумму и количество всех положительных элементов.

1

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

2013-05-22T16:29:16+04:00

 

var

a:array [1..20] of integer;

i,s,k:integer;

begin

randomize;

k:=0;

s:=0; 

for i:=1 to 20 do begin

a[i]:=random(21)-10;

write (a[i],' ');

if a[i]>0 then 

begin

k:=k+1;

s:=s+a[i];

end;

end;

writeln;

writeln (k);

writeln (s);

readln;

end.