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

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

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

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

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

Question

Тимоня

6 марта, 20:36

+4

Ответы (1)

Знаете ответ?

Рудольф · 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.