Запиши программу на языке программирования Паскаль
Дан двумерный массив 3 х 3. Составьте программу нахождения
минимального элемента и его номер строки и столбца
Помогите если знаете, заранее спасибо!
Дан двумерный массив 3 х 3. Составьте программу нахождения
минимального элемента и его номер строки и столбца
Помогите если знаете, заранее спасибо!
More Questions From This User See All
Answers & Comments
const
n=3;
var
a:array [1..n,1..n] of integer;
mini,minj,i,j:integer;
begin
writeln('Матрица:');
mini:=1; minj:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(51)-25;
write(a[i,j]:4);
if a[i,j]<a[mini,minj] then
begin
mini:=i;
minj:=j;
end;
end;
writeln;
end;
writeln('Мин.эл.[строка,столбец]: ',a[mini,minj],'[',mini,',',minj,']');
end.
Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!
n = 3;
var
a: array [1..n, 1..n] of integer;
mini, minj, i, j: integer;
begin
mini := 1; minj := 1;
for i := 1 to n do
for j := 1 to n do
begin
write('mas[',i,',',j,']: ');
readln(a[i,j]);
if a[i, j] < a[mini, minj] then
begin
mini := i;
minj := j;
end;
end;
writeln;
writeln('Матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
writeln('Мин.эл.[строка,столбец]: ', a[mini, minj], '[', mini, ',', minj, ']');
end.