Ответы
Ответ дал:
1
var n,a,i,s: integer;
begin
Read(n);
For i:=1 to n do Read(a[i]);
For i:=1 to n do
if a[i] mod 2=0 then begin
s:=s+a[i]; k:=k+1; end;
Write(s/k);
end.
383nightflare:
Здравствуйте, а можете с пояснения написать ?
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад