ПОМОГИТЕ ПОЖАЛУЙСТА!!! С помощью блок схемы или паскаля Составьте алгоритм для р

ПОМОГИТЕ ПОЖАЛУЙСТА!!! С помощью блок схемы или паскаля Составьте алгоритм для решения следующей задачи: Среди N произвольных вещественных чисел найдите количество не равных нулю.
Гость
Ответ(ы) на вопрос:
Гость
Var n,i,k:integer; a:array[1..1000] of real; begin readln(n);  for i:=1 to n do read(a[i]); for i:=1 to n do if a[i]<>0 then inc(k); write(k); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы