Сформулировать массив из n случайных чисел на промежутке [-60;60].найти сумму чисел б??льших нуля

Сформулировать массив из n случайных чисел на промежутке [-60;60].найти сумму чисел б??льших нуля
Категория: Информатика 3 года назад
На вопрос 3 года назад
Янис Рудич
Var a:array of integer;
i,n,s:integer;
begin
  write('Число элементов : ');
  readln(n);
  setlength(a,n);
  for i:=0 to n-1 do begin
    a[i]:=random(121)-60;
    if a[i]>0 then s:=s+a[i];
    write(a[i]:4);
  end;
  writeln;
  writeln('Сумма больших 0 : ',s);
end.
Тестовое решение:
Число элементов : 10
 -49 -36  -2  -8 -46  36 -56  15  57  56
Сумма больших 0 : 164
Ответ получен 3 года назад
Милослава Стаханова

Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт