Решить три ! 1.вычислите сумму данных 100 натуральных чисел. вводятся 100 чисел, сумму которых необходимо посчитать. 2.вводится число n, а затем n чисел. подсчитайте, сколько среди данных n чисел нулей. 3.подсчитайте, сколько среди данных n чисел нулей, положительных чисел, отрицательных чисел. вводится число n, а затем n чисел. необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел. (всё на паскале)
begin
s:=0;
for i:=1 to 100 do
s:=s+i;
writeln('s = ',s);
readln;
end.