Question

Срочно!!! Помогите!!
1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифметическое чётных элементов массива. Вывести на экран исходный массив и среднее арифметическое.

Answer 1

program z1;
var
a:array [1..10] of integer;
i,r,k,p,s:integer;
begin
randomize;
k:=0;p:=0;
for i:=1 to 10 do 
begin 
 a[i]:=random (40); 
 write (a[i],' '); 
end;
 writeln(' ');
 for i:=1 to 10 do 
begin 
if a[i] mod 2=0 
 then k:=k+1  ;p:=p+a[i] 
end;
 s:=p div k;
 write (s);
 end.