В паскаль АВС
Заполнить массив А[1..8] числами, вводимыми с клавиатуры. Найти среднее арифметическое четных элементов.
Заполнить массив А[1..8] числами, вводимыми с клавиатуры. Найти среднее арифметическое четных элементов.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a:array[1..8]of integer;
i,s:integer;
begin
for i:=1 to 8 do begin
readln(a[i]);
if i mod 2 = 0 then s:=s+a[i];
end;
writeln(s/4);
end.