Среди N произвольных вещественных чисел найдите количество не равных нулю. - Pascal ABC

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

Решите с помощью блок схемы или паскаля Составьте алгоритм для решения следующей задачи: Среди N произвольных вещественных чисел найдите количество не равных нулю.

Код к задаче: «Среди N произвольных вещественных чисел найдите количество не равных нулю. - Pascal ABC»

textual
program fst;
var i,n,s: integer;
  ch: real;
begin
  write('n='); readln(n);
  s:=0;
  for i:=1 to n do
  begin
    readln(ch);
    if (not(ch=0)) then inc(s) else
  end;
  writeln(s);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 3.778 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы