Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.