проблема со "средним арифметическим"

[puporev]

if Sred[i]=min then begin
writeln(A[imin]:2);
writeln(f,A[imin]:2);

Вы же выводите только одного, A[imin], а нодо всех, A[i].

[Sazary]

Во-первых, вот здесь:

 for i:=1 to 10 do
 if Sred[i]=min then begin
  writeln(A[imin]:2);
  writeln(f,A[imin]:2);
 end;

нужно использовать i, а не imin.
Должно быть как-то так:

 for i:=1 to 10 do
 if Sred[i]=min then begin
  writeln(A[i]:2);
  writeln(f,A[i]:2);
 end;

Во-вторых, скомпилировать не могу.
Какой у вас компилятор?
файлов Global и massiv_matrix у меня нет (ни в паскале, ни в Делфи).

Также не вижу, где вы тут вводите данные.
------
Если у вас работает то, что вы написали, то должно работать и с теми изменениями, что я описал выше.

ps не успел немного..

[MyQwErTy]

файлы Global и massiv_matrix это мои модули, компилятор у меня Delphi 10 Lite
то что я пишу это модуль к основной программе, поэтому там нет ввода данных, и задача которую я вам описал в самом начале это только часть, если хотите увидеть и программу и модули, вот:

[MyQwErTy]

а ещё забыл кое-чего: модуль Wingraph прикрепить:

[Sazary]

Мой Delphi 7 ругается, что нет файла Wingraph.pas
А вообще, если бы я знал, что там так много всего, то не просил бы выложить.. Да это и не нужно.

Перечитайте два предыдущих поста (#11 и #12) и скажите: вы сделали эти изменения? С ними работает? Сразу скажу, что должно.

[MyQwErTy]

все сделал, работает, спасибо