Регистрация
sasha210803
21.09.2022 23:46
Информатика
Есть ответ 👍

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

160
294
Посмотреть ответы 3

Ответы на вопрос:

kanaev07
kanaev07
4,7(89 оценок)
Var n,i,k: integer;       a: array [1..50] of real; begin       write('введите целое n = '); readln(n);       for i: =1 to n do       begin           write('a[',i,'] = '); readln(a[i])       end;       k: =0;       for i: =1 to n do             if a[i]< > 0 then k: =k+1;       writeln('k = ',k) end.
марина4442
марина4442
4,4(41 оценок)
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.
eX6ToR
eX6ToR
4,7(92 оценок)
В1 кб это  1024 байт 1/18 кб это 57 байт в одном байте 8 бит 57*8 =456 бит

Популярно: Информатика