дана матрица вещественных чисел размерностью MxN. Определить минимальные элемент в каждой строке матрицы.
program fourth;
uses crt;
type mas=array[1..100,1..100] of real;
var a: mas;
m,n,i,j: integer;
min: real;
begin
clrscr;
repeat
writeln('Введите размерность массива');
write('Количество строк = ');
readln(m);
write('Количество столбцов = ');
readln(n);
if (m>100) or (n>100) then writeln('Количество не должно превышать 100');
until (m<=100) and (n<=100);
for i:=1 to m do
begin
writeln('Элементы строки №',i);
for j:=1 to n do read(a[i,j]);
end;
for i:=1 to m do
begin
min:=a[1,i];
for j:=2 to n do
if a[i,j]<min then min:=a[i,j];
writeln('Минимум строки №',i,'Равен',min:3:2);
end;
readln;
end.
Вот задача она работает но не совсем !
нажимаю запустить запускается нужно ввести кол-во строк потом кол-во столбцов
ввожу например 2 строки 2 столбца и когда я ввожу во второй строке второй столбец и нажимаю энтер
оно не считает а заново кидает на формулу первоначальную!!!
Помогите чем смогите!!!!
|
|
|
|
|
Все она считает, сначала вводишь размерность, потом заполняешь, единственное, что после расчета программа сразу завершается. добавь ещё один readln в конце.
|
|
|
|
