Ввести в память машины массив А(N), подчитать количество отрицательных элементов массива

1

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

Лучший Ответ!
  • ali07
  • главный мозг
2011-10-29T22:44:54+04:00

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

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

proram z1;

  var i, k, n : integer;

            a: array(1..20] of real;

begin

   write('введите N=');

   readln(n);

   for i:=1 to n do

     readln(a[i]);

   k:=0;

   for i:=1 to n do

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

   writeln('кол-во отрицательных =', k)

end.