Задано 20 любых чисел.Подсчитать количество и сумму чисел имеющих значение больше 10

1

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

Лучший Ответ!
  • Sky09
  • профессор
2013-05-29T15:38:36+04:00

var a:array[1..20] of real;
i:integer; s:real;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(100)-50;
if a[i]>10 then
s:=s+a[i];
end;
writeln('s=',s);
end.