Question

Дан массив из N элементов .определить среднее арифметическое кратных 5 и некратных 10.решите пожалуйста .буду благодарна

Answer 1

Var
a:array[1..10000]of integer;
n,i,k,c:integer;
summ:real;
begin
readln(n);
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do begin
if (a[i] mod 5=0)or(a[i] mod 10>0) then begin
c:=c+a[i];
k:=k+1;
end;
end;
summ:=c/k;
writeln(summ);
end.