begin
var (строк, столбцов) := ReadInteger2('Введи N и M:');
Writeln('Введите элементы массива построчно');
var массив := ReadMatrReal(строк, столбцов);
массив.ElementsByRow.Min.Print
end.
===== Так писали наши деды =====
const
nn = 50;
mm = 50;
var
i, j, n, m, min : integer;
a: array[1..nn, 1..mm] of integer;
Write('Введи N и M: ');
Read(n, m);
min := 32767;
for i := 1 to n do
for j := 1 to n do
Read(a[i,j]);
if a[i,j] < min then
min := a[i,j]
end;
Write(min)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
begin
var (строк, столбцов) := ReadInteger2('Введи N и M:');
Writeln('Введите элементы массива построчно');
var массив := ReadMatrReal(строк, столбцов);
массив.ElementsByRow.Min.Print
end.
===== Так писали наши деды =====
const
nn = 50;
mm = 50;
var
i, j, n, m, min : integer;
a: array[1..nn, 1..mm] of integer;
begin
Write('Введи N и M: ');
Read(n, m);
Writeln('Введите элементы массива построчно');
min := 32767;
for i := 1 to n do
for j := 1 to n do
begin
Read(a[i,j]);
if a[i,j] < min then
min := a[i,j]
end;
Write(min)
end.