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

1.program zz1;

var a,  n, i, s:integer; // задаем переменные целого типа

begin

write( введите n ); // вводим данное n

read(n);

for i:=1 to n do

begin

read(a);  // вводим число последовательности

s:=s+a; // находим сумму естественных чисел

end;

writeln(сумма естественных чисел = , s); // выводим ответ

end.

2.program zz1;

var a,  n, i, s:integer; // задаем переменные целого типа

begin

write( введите n ); // вводим заданное n

read(n);

s:=1;

for i:=1 to n do

begin

read(a);  // вводим число последовательности

s:=s*a; // обретаем произведение естественных чисел

end;

writeln(произведение естественных чисел = , s); // выводим ответ

end.

3.program zz1;

var a,  n, i, s:integer; // задаем переменные целого типа

begin

write( введите n ); // вводим заданное n

read(n);

s:=1;

for i:=1 to n do

begin

read(a);  // вводим число последовательности

if a mod 10 = 8 then s:=s+1;

end;

writeln(количество чисел оканчивающихся на 8 = , s); // выводим ответ

end.