Question

Напишите программу, которая находит среднее арифметическое всех элементов массива, которые делятся на 3 и заканчиваются на 1.

Answer 1

var b,c,i:integer;

a:array[1..10] of integer;

begin

for i:=1 to 10 do

begin

a[i]:=random(10);

end;

for i:=1 to 10 do

c:=c+a[i];

b:=c div 10;

for i:=1 to 10 do

writeln(a[i]);

writeln('srednee ',b);

end.