Регистрация
ddurua
06.08.2020 14:41
Информатика
Есть ответ 👍

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

299
350
Посмотреть ответы 2

Ответы на вопрос:

abdrahmanovamir123
abdrahmanovamir123
4,4(26 оценок)
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.
nik180208mailru
nik180208mailru
4,6(74 оценок)

var

  y: integer;

begin

  write('y = ');

  readln(y);

  write('введенное целое число ',y,' является отрицательным - ', y < 0);

  readln

end.

Популярно: Информатика