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

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.

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.

8) Свиток

9)

Понятие :
-Логически оформленная мысль об общих существенных свойствах, связях и отношениях предметов или явлений объективной действительности.

-Представление о чем-л., осведомленность в чем-л.; знание, понимание чего-л.

-разг. Мнение о ком-л., чем-л.
Оценка кого-л., чего-л.

Слово - это единица речи, служащая для выражения отдельного понятия.

Термин- Слово или словосочетание, являющееся названием определённого понятия какой-н. специальной области науки, техники, искусства.

Var
a,b,c: integer;
begin
readln(a);
c:=0;
while a<>0 do
begin
b:= a mod 10;
a:= a div 10;
if x mod 2=0 then 
c:=c+1;
end;
writeln(c)
end.

var i,s:integer;{1}begins:=0;for i:=1 to 1000  doif i mod 2=0 then s:=s+i;end.{2}beginfor i:=1 to 1000 doif odd(i) then s:=s+i;{3}a:array[1..500] of integer;n:integer;for i:=1 to 1000 doif odd(i) then a[i]:=i;n:=i;for i:=1 to n dos:=a[i]+s;end.