1. напишите программу, которая для последовательности натуральных чисел определяет их сумму. Программа получает на вход количество чисел в последовательности и сами числа 2. Измените программу так, чтобы определялось произведение чисел. 3. измените программу так, чтобы определялось количество чисел, заканчивающихся на 8

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.