Ответ:
1б,байт 1024, КБ 980,мб 1024
идеи многих своих изобретений человек подглядел в природе.
Const n=10;
var a: array[1..n] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to n do
begin
writeln('элемент', i);
readln(a[i]);
if a[i] <> 0 then k:=k+1
end;
writeln(k)
end.
<span>scanf("%f %f %c",&a,&b,&s); - считывает 2 числа, s - твоя операция
case - варианты, что сделать с числами
printf выводит результат операции</span>