Дана последовательность натуральных чисел, окончанием последовательности число 0. составить программу, котрая вычисляет сумму и среднее арифмитическое чисел кратных 3

program zz1;

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

m:array [1 ... 10000] of integer;

begin

read (m[1]); i:=1;

while m[i]0 do / / вводим числа последовательности с клавиатуры до тех пор, пока не введем ноль, записываем их в массив

begin

i:=i+1;

read (m[i]);

end;

n:=i;

for i:=1 to n do / / организуем цикл, в котором переберем все числа последовательности

if (m[i] mod 3 = 0) and (m[i]0) then begin k1:=k1 + m[i]; k:=k+1; end; / / получаем сумму положительных чисел

writeln (' среднее арифметическое чисел последовательности кратных трем = ', k1/k:5:2);

end.