С клавиатуры запросить 25 целых чисел.Найти число положительных и сумму отрицательных.Результаты вывести на экран.Паскаль.Спасибо заранее!

1

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

2012-05-23T10:37:55+04:00

program vvod_chis;

var

  a:array[1..25] of integer;

  i,kol,sum_ot:integer;

Begin

  for i:=1 to 25 do begin

    writeln('Введите ',i,'-ое число');

    readln(a[i]);

  end;

  kol:=0; sum_ot:=0;

  for i:=1 to 25 do begin

   if a[i]>0 then kol:=kol+1;

   if a[i]<0 then sum_ot:=sum_ot+a[i];

  end;

writeln('Число положительных лементов= ',kol);

writeln('Семма отрицательных лементов= ',sum_ot);

End.