profile
Опубликовано 5 лет назад по предмету Информатика от Panda7137

Помогите решить задачу в Pascal

Дан массив целых чисел, состоящий из 30 элементов. Заполнить его датчиком случайных чисел. Найти сумму отрицательных элементов.

  1. Ответ
    Ответ дан антагонист
    var n,sum:integer;
        arr: array [0..30] of integer;
    begin
      sum:=0;
      randomize; 
      for n:=0 to 29 do begin
      arr[n]:=random(1000)-500;
      if (arr[n]<0) then sum:=sum+arr[n];
      end;
      writeln('сумма отрицательных чисел = ',sum);
    end.
Самые новые вопросы