Найти все элементы, большие среднего арифметического элемента в массиве S(8)
Найти все элементы, большие среднего арифметического элемента в массиве S(8)
Гость
Ответ(ы) на вопрос:
Гостьprogram qq;;
var S:array[1..8] of integer;
i, SA, sum, k:integer;
begin
for i:=1 to N do readln(S[i]);
sum=0; k:=0; SA:=0;
for i:=0 to 8 do begin
sum:=sum+A[i];
k:=k+1;
end;
SA:=s/k;
if (S[i]>SA) then writeln(S[i]);
end.
Не нашли ответ?
Похожие вопросы