Отыскать все элементы, большие среднего арифметического элемента в массиве S(8)

Отыскать все элементы, великие среднего арифметического элемента в массиве S(8)

Задать свой вопрос
1 ответ
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]gt;SA) then writeln(S[i]);
end.
Ангела
там после begin for i:=1 to 8 do readln(S[i]);
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт