Question

ПРОШУ ЭТО ОЧЕНЬ СРОЧНО

Answer 1

Const
  N = 30;
var
  a: array[1..N] of integer;
  i, j: integer;
  s: real;
begin
  for i := 1 to N do readln(a[i]);
  s := 0;
  for i := 1 to N do s := s + a[i];
  s := s / N;
  writeln('Результаты:');
  j:=0;
  for i := 1 to N do
    if a[i] > s then j=j+1;
  writeln(j)
end.

Answer 2

S:=0;
j:=0;
for i:=1 to N do s:=s+a[i];
s:=s/N;
for i:=1 to N do
  if a[i]>s then j:=j+1;
writeln(j)