не могу доработать

[dagggggger]

const nmax=100;
var mas:array[1..nmax] of integer;
k,i,s,n,rez:integer;
begin
clrscr;
randomize;
repeat
Writeln('‚ўҐ¤ЁвҐ а*§¬Ґа ¬*ббЁў* ¤® ',nmax,'n=');
readln(n)
until n in [1..nmax];
for i:=1 to n do
s:=s+mas[i];
s:=s/n;
for i:=1 to n do
if mas[i]>s then begin
rez:=rez+mas[i];
k:=k+1;
end;
if k<>0 then rez:rez/k;
end.

[vovk]

может хотябы напишите что вы от этого хотели? или часть задания это догадатся?
кстати код нужно оформлять тегом знак # в расширеном режиме правки

[dagggggger]

const nmax=100;
var mas:array[1..nmax] of integer;
k,i,s,n,rez:integer;
begin
clrscr;
randomize;
repeat
Writeln('‚ўҐ¤ЁвҐ а*§¬Ґа ¬*ббЁў* ¤® ',nmax,'n=');
readln(n)
until n in [1..nmax];
for i:=1 to n do
s:=s+mas[i];
s:=s/n;
for i:=1 to n do
if mas[i]>s then begin
rez:=rez+mas[i];
k:=k+1;
end;
if k<>0 then rez:rez/k;
end.

[Niro]

Я так понимаю вы сюда вставили заполнение массива + кусок моего кода?
Зачем создавали новую тему, спросили бы в той, ладно

const nmax=20;
var mas:array[1..nmax] of integer;
k,i,s,n,rez:integer;
begin
clrscr;
randomize;
for i:=1 to n do
   mas[i]:=random(15);
for i:=1 to n do
   s:=s+mas[i];
s:=s/n;
for i:=1 to n do
if mas[i]>s then begin
                        rez:=rez+mas[i];
                        k:=k+1;
end;
if k<>0 then rez:rez/k;
end.

Хотя как вы её будите сдавать я не представляю

[dagggggger]

он ошибку 26 выдаёт на строке - s:=s/n;

[Niro]

Правильно переменные s,rez у нас заданы целочисленным типом, а результат деления может быть дробным, так что

var mas:array[1..nmax] of integer;
k,i,n:integer;
s,rez: real

[dagggggger]

теперь 200 ошибка в той же строке
From Stilet: Еще раз ругнешся, или код не оформишь правильно - тему удалю.

[Niro]

всё

  uses crt;
  const n=20;
var mas:array[1..n] of integer;
  k,i:integer;
  s,rez: real;
begin
  clrscr;
  randomize;
  writeln('isxodnii massiv');
  for i:=1 to n do
  begin
    mas[i]:=random(15);
    write(mas[i],' ');
  end;
  for i:=1 to n do
    s:=s+mas[i];
  s:=s/n;
  for i:=1 to n do
   if mas[i]>s then begin
                        rez:=rez+mas[i];
                        k:=k+1;
                    end;
  if k<>0 then rez:=rez/k;
  writeln;
  writeln('s = ',s:0:2);
  writeln('rez = ',rez:0:2);
  readln;
end.

С вас бутер с черной икрой

[dagggggger]

))) спасибо боьшое