Дан массив А(10), заполненный датчиком случайных чисел. Подсчитать и вывести на экран сумму положительных элементов массива.

1

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

  • Sky09
  • профессор
2013-06-06T06:32:20+00:00

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

  end;

  write('s=',s);
end.