Ввести матрицу 5х10 и найти в ней количество элементов, больших и меньших среднего арифметического (Delphi)

[Юлийа]

срочно нужна помощь в решении задачи.. Дана матрица размера 5 х 10. Элементы массива вводятся с клавиатуры. В каждой строке и столбце найти количество элементов, больших и меньших среднего арифметического всех элементов этой строки и столбца.

[FaTaL]

Срочно иди во фриланс или выкладывай свой код и вопрос что именно не получается.

[Юлийа]

не знаю что именно не так,

uses
  SysUtils;
 
// матрица размером 5 x 10
var
  M: array [1..5, 1..10] of Integer;
 
// это вместо ввода с клавиатуры
// заполнить матрицу случайными числами от 1 до 100
procedure InputMatrix;
var
  i, j: Integer;
begin
  Randomize;
  for i := 1 to 5 do
    for j := 1 to 10 do
    begin
      M[i, j] := Random(100) + 1;
    end;
end;
 
// среднее арифмерическое заданной строки
// nR - номер строки матрицы для которой нужно определить ср. арифм.
function AvgRow(nR: Integer): Double;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 10 do
    Result := Result + M[nR, i];
  Result := Result / 10;
end;
 
// среднее арифмерическое заданного столбца
// nC - номер столбца матрицы для которой нужно определить ср. арифм.
function AvgCol(nC: Integer): Double;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 5 do
    Result := Result + M[i, nC];
  Result := Result / 5;
end;
 
// ищет кол-во элементов меньше заданного N
// в строке матрицы с номером nR
function FindMinInRow(N: Double; nR: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 10 do
    if N > M[nR, i] then
      Result := Result + 1;
end;
 
// ищет кол-во элементов больше заданного N
// в строке матрицы с номером nR
function FindMaxInRow(N: Double; nR: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 10 do
    if N < M[nR, i] then
      Result := Result + 1;
end;
 
// ищет кол-во элементов меньше заданного N
// в столбце матрицы с номером nC
function FindMinInCol(N: Double; nC: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 5 do
    if N > M[i, nC] then
      Result := Result + 1;
end;
 
// ищет кол-во элементов больше заданного N
// в столбце матрицы с номером nC
function FindMaxInCol(N: Double; nC: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 5 do
    if N < M[i, nC] then
      Result := Result + 1;
end;
 
// печать на экран результата строки
procedure PrintRowAndResult(nR: Integer; Avg: Double; Min, Max: Integer);
var
  i: Integer;
begin
  for i := 1 to 10 do
    Write(M[nR, i]:3, ' ');
  Write ('   ');
  Write('Avg = ', Avg:3:2, ' ');
  Write('Min = ', Min, ' ');
  Write('Max = ', Max, ' ');
  Writeln;
end;
 
// печать на экран результата столбца
procedure PrintColAndResult(nC: Integer; Avg: Double; Min, Max: Integer);
var
  i: Integer;
begin
  for i := 1 to 5 do
    Write(M[i, nC]:3, ' ');
  Write ('   ');
  Write('Avg = ', Avg:3:2, ' ');
  Write('Min = ', Min, ' ');
  Write('Max = ', Max, ' ');
  Writeln;
end;
 
var
  k, n, Min, Max: Integer;
  Avg: Double;
 
begin
  InputMatrix;
  Writeln('Results in rows:');
  for k := 1 to 5 do
  begin
    Avg := AvgRow(k);
    Min := FindMinInRow(Avg, k);
    Max := FindMaxInRow(Avg, k);
    PrintRowAndResult(k, Avg, Min, Max);
  end;
  Writeln('Results in columns:');
  for k := 1 to 10 do
  begin
    Avg := AvgCol(k);
    Min := FindMinInCol(Avg, k);
    Max := FindMaxInCol(Avg, k);
    PrintColAndResult(k, Avg, Min, Max);
  end;
  Readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Rin]

Всё у вас нормально в программе. Что Вы кипишуете?!

[Юлийа]

Rin, делфи выдает ошибку..

[Stilet]

Какую? Или это секрет Пентагона?

[VintProg]

Юлийа
В какой именно, функции, выдается ошибка?

[Юлийа]

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

Какую? Или это секрет Пентагона?

везде.. почти на каждой строчке.. когда пишу решение с окошком (создается окошко где есть кнопки"вычислить","выйти",надо вводить цифры..) а когда без окошка то все нормально и программа запускается.. извините за примитивное описание)))

[Юлийа]

помогите пожалуйста! дотянула уже до последнего срока.. завтра надо сдавать задачу...

[Hacker19_90]

когда пишу решение с окошком (создается окошко где есть кнопки"вычислить","выйти",надо вводить цифры..) а когда без окошка то все нормально и программа запускается..

Какое окошко? вы у вас программа написана для консоли!