помогите исправить программу на массивы(Pascal)

[ksenija15reg]

Дан двумерный массив. Найти количество элементов каждой строки, больших среднего арифметического элементов данной строки.

program qq;
uses crt;
var
a:array [1..100,1..100] of integer;
i,j,n,m,k:integer;
sr:real;
Begin
write('n=');
read(n);
write('m=');
read(m);
 randomize;
  for i:=1 to n do begin
  for j:=1 to m do begin
  a[i,j]:=random(40)-20;
  write(a[i,j]:4);
 end;
 writeln;
 writeln;
 end;
for i:=1 to n do begin
sr:=0;
k:=0;
for j:=1 to m do
sr:=sr+a[i,j];
sr:=s/m;
for j:=1 to n do    begin
if a[i,j]>sr then
k:=k+1;
end;
writeln('kolichestvo elementov = ',k);
end;
readkey;
end.

[ZX Spectrum-128]

Sr:=s/m;
Это чего такое?
И вглянитесь в строку выше

[ksenija15reg]

все исправила, вроде. но все равно ничего...:confu sed:

[ZX Spectrum-128]

Сообщение от ksenija15reg

все исправила, вроде. но все равно ничего...:confu sed:

Покажите исправления

[ksenija15reg]

Сообщение от ZX Spectrum-128

Покажите исправления

исправила строку

sr:=sr/m

а что в строке выше не так?

[Stilet]

Сравниваем:

sr:=s/m;

и

sr:=sr/m

смотрим внимательно и находим различия

[ZX Spectrum-128]

Глаз похоже замылился. Сравните мои строчки с вашими.

s:=s+a[i,j];  // тут сумма
sr:=s/m;      // тут среднее арифм.

[Serge_Bliznykov]

Сообщение от ZX Spectrum-128

Глаз похоже замылился. Сравните мои строчки с вашими.

s:=s+a[i,j];  // тут сумма
sr:=s/m;      // тут среднее арифм.

не, у Вас глаз точно замылился..

правильные строчки у Stilet:

for i:=1 to n do begin
  sr:=0;
  for j:=1 to m do
    sr:=sr+a[i,j];
  sr:=sr/m; {среднее}

  k:=0;
  for j:=1 to m do    begin
    if a[i,j]>sr then
          k:=k+1;
  end;
  writeln('kolichestvo elementov v stroke ',i,' = ',k);
end;

[ZX Spectrum-128]

Нееее, я привел строки уже из своего кода, правленного. А забыл добавить сюда
Var
S:string;

У автора s присутствует, но не описана.

Подумавши и перечитавши предыдущий пост. Надо было сразу программу постить, а попробуй пойми по тому огрызку, что я имел ввиду. А по программе вопросов не возникло бы. Что ж, бывает, старость - она не радость
В дальнейшем так и буду делать.

[Serge_Bliznykov]

ksenija15reg, обратите внимание на мой пост #8, попробуйте код из этого сообщения! (я там ещё одну вашу ошибку/опечатку попутно поправил).


----------------- лёгкий оффтоп ----------------

Сообщение от ZX Spectrum-128

Нееее, я привел строки уже из своего кода, правленного. А забыл добавить сюда
Var
S:string;

У автора s присутствует, но не описана.

т.е. Вы утверждаете, что для типа s:String
корректно выполнится ваш код?!!!!

s:=s+a[i,j];  // тут сумма
sr:=s/m;      // тут среднее арифм.

ага. я понимаю, что Вы опять ошиблись. Вы хотели сказать, что
s должно быть вещественного типа (например, var s : real; )

Подумавши и перечитавши предыдущий пост. Надо было сразу программу постить, а попробуй пойми по тому огрызку, что я имел ввиду. А по программе вопросов не возникло бы. Что ж, бывает, старость - она не радость
В дальнейшем так и буду делать.

Угу. Это правильно.

А на старость не жалуемся, подозреваю, что тут, на форуме, Вы не самый великовозрастный