ПОМОГИТЕ ПОЖАЛУЙСТА!!! С помощью блок схемы или паскаля Составьте алгоритм для р
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
С помощью блок схемы или паскаля
Составьте алгоритм для решения следующей задачи:
Среди 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.
Не нашли ответ?
Похожие вопросы