В паскале создать одномерный массив из 10 случайных чисел от -5 до 5 и определить сумму элементов больше 0.

В паскале создать одномерный массив из 10 случайных чисел от -5 до 5 и определить сумму элементов больше 0.
Гость
Ответ(ы) на вопрос:
Гость
const n=10; var a:array[1..n] of integer; i,sum:integer; begin Randomize; for i:=1 to n do  begin  a[i]:=random(11)-5;  write(a[i],' ');  end; writeln; sum:=0; for i:=1 to n do  if a[i]>0 then sum:=sum+a[i]; writeln('sum=',sum); end. Пример: 5 -1 -4 4 -5 0 -5 4 5 -3  sum=18
Не нашли ответ?
Ответить на вопрос
Похожие вопросы