Question

помогите решить три номера!!!

1.Вычислите сумму данных 100 натуральных чисел. Вводятся 100 чисел, сумму которых необходимо посчитать.

2.Вводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чисел нулей.

3.Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел. Вводится число N, а затем N чисел. Необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел.

(всё на паскале)

Answer 1

1.var s,i,k:integer;
begin
s:=0;
for i:=1 to 100 do
s:=s+i;
writeln('s = ',s);
readln;
end.

Answer 2

2.var i,n,t,k:Integer;
begin
write('n:=');readln(n);
for i:=1 to n do begin
write(i,'-> ');readln(t);
if t=0 then k:=k+1;
end;
writeln('Число нулей: ',k);
end.

Answer 3

3.var i,n,t,k,k1,k2:Integer;
begin
write('n:=');readln(n);
for i:=1 to n do begin
write(i,'-> ');readln(t);
if t=0 then k:=k+1;
if t>0 then k1:=k1+1;
if t<0 then k2:=k2+1;
end;
writeln('Число нулей: ',k);
writeln('Число положительных: ',k1);
writeln('Число отрицательных: ',k2);
end.