помогите решить три номера!!! 1.Вычислите сумму данных 100 натуральных чисел. Вводятся...

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.

Comments

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.

---

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;<br>end;
writeln('Число нулей: ',k);
writeln('Число положительных: ',k1);
writeln('Число отрицательных: ',k2);
end.