В массиве, состоящем из 20 случайных чисел в интервале [-10; 10] количество и сумму элементов которые больше 5

Question

Информатика

Мирибан

20 апреля, 00:48

В массиве, состоящем из 20 случайных чисел в интервале [-10; 10] количество и сумму элементов которые больше 5

+2

Ответы (1)

Знаете ответ на вопрос?

Златосвет · Answer 1

Var a: array[0 ... 20] of Integer;

i, sum, count: Integer;

begin

sum:=0;

count:=0;

for i:=0 to 19 do

begin

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

writeln ('Число ', i+1,': ', a[i]) ;

if a[i]>5 then

begin

sum:=sum+a[i];

count:=count+1;

end;

end;

writeln ('Сумма: ', sum) ;

writeln ('Кол-во: ', count) ;

end.