помогите решить задачи по информатике в паскале 1.с клавиатуры вводят числа. признак окончания ввода чисел число 0.вычислить сумму положительных и отрицательных чисел 2.сначала вводится количество чисел а затем сами числа вычислить количество чисел кратных 3

Вопрос школьника по предмету Информатика

помогите решить задачи по информатике в паскале
1.с клавиатуры вводят числа. признак окончания ввода чисел число 0.вычислить сумму положительных и отрицательных чисел
2.сначала вводится количество чисел а затем сами числа вычислить количество чисел кратных 3

Ответ учителя по предмету Информатика

1)

var p,o,s:integer;

begin

Read(s);

while s<>0 do

begin

if s>0 then

p+=s

else

o+=s;

Read(s);

end;

Writeln(‘сумма положительных ‘,p);

Writeln(‘сумма отрицательных ‘,o);

end.

2)

var n,o,s:integer;

begin

writeln(‘введите кол-во чисел’);

Read(n);

write(‘вводите числа по одному
‘);

for var i:=1 to n do

begin

Read(s);

if s mod 3 = 0 then

o+=1;

end;

Write(‘кол-во кратных чисел 3 ‘o);

end.