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

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

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

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

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

Question

Кузьминична

25 ноября, 02:38

+3

Ответы (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.