Основна проблема в том что неумею считовать с файла,тему ище непроходили так что идей нет.Помогите.А так то вся прога готова
program matryca;
uses crt;
const
nmax = 100;
Var matr: array [1 .. nmax, 1 .. nmax] of integer;
vec: array [1 .. nmax] of integer;
m, n, i, j, rad, mini, minj: integer;
Begin
repeat
write ('Введите количество столбцов матрицы:');
read (m);
write ('Введите количество строк матрицы:');
read (n);
if (m <= 0) and (n <= 0) then writeln ('Некорректное ввод данных');
until (n> 0) and (m> 0);
// Ввод матрицы
for i:= 1 to n do
for j:= 1 to m do begin
write ('Введите элемент матрицы A (', i ,';', j ,'):');
read (matr [i, j]);
end;
// Вывод матрицы
for i:= 1 to n do begin
write ('(', i, ' строка) ');
for j:= 1 to m do
write (matr [i, j], '');
writeln
end;
// Вычисление минимального элемента матрицы
mini:=1; minj:=1;
for i:= 1 to n do
for j:= 1 to m do begin
if matr [i, j] < matr [mini, minj] then begin // Ищем минимальный элемент матрицы
mini:=i; minj:=j;
end;
end;
writeln;
write ('Минимальный элемент матрицы:');
write (matr [mini, minj]);
writeln ('===============================');
writeln;
writeln ('Строки с минимальным элементом:');
for i:= 1 to n do
for j := 1 to m do
if matr[i, j] = matr[mini, minj] then begin
writeln(i); break; // Завершаем цикл, чтоб не печатать один номер строки несколько раз
end;
end.