Решите задачу по информатике в программе паскаль, пожалуйста.

В массиве А(5) посчитать кол-во положительных и кол-во отрицательных чисел.

2

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

  • nelle987
  • Ведущий Модератор
2013-01-20T18:10:46+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var A:array[1..5] of real;

   i, n_neg, n_pos: integer;

 

begin

   n_neg := 0;

   n_pos := 0;

   for i := 1 to 5 do

      readln(A[i]);

   for i := 1 to 5 do

      if (A[i] < 0) then

         inc(n_neg)

      else if (A[i] > 0) then

         inc(n_pos);

   writeln('Positives: ', n_pos, ', negatives: ', n_neg)

end.

2013-01-20T18:11:21+04:00

var a:array[1..5]of longint;

i,k,k1:longint;

begin

for i:=1 to 5 do

read(a[i]);

for i:=1 to 5 do

begin

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

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

end;

writeln('otricatelnyh=',k1,'polojitelnyh',k);

end.