Найти сумму положительных и количество отрицательных элементов массива - Pascal ABC

Формулировка задачи:

Найти сумму положительных элементов массива.Найти количество отрицательных элементов массива.

Код к задаче: «Найти сумму положительных и количество отрицательных элементов массива - Pascal ABC»

textual
uses crt;
 
const
  N = 20;
 
var
  mas:array [1..N] of integer;
  i,d,sum:integer;
 
BEGIN
  write('mas: ');
  for i:=1 to N do
    begin
      mas[i]:=Random(10)-5;
      write(mas[i],' ');
    end;
  writeln;
  
  d:=0;
  sum:=0;
  
  for i:=1 to N do
    begin
      if mas[i]>0 then
        sum:=sum+mas[i]
      else if mas[i]<0 then
        inc(d);
    end;
    
  write('sum = ',sum,' d = ',d);
END.

13   голосов, оценка 4.308 из 5


СОХРАНИТЬ ССЫЛКУ