Сформировать одномерный массив В из минимальных элементов строк двухмерного массива А (N, M) Паскаль, написать эту программу в тетрадь
Сформировать одномерный массив В из минимальных элементов строк двухмерного массива А (N, M) Паскаль, написать эту программу в тетрадь
Гость
Ответ(ы) на вопрос:
Гостьconst
nm = 20;
nn = 20;
var
a: array[1..nm, 1..nn] of integer;
b: array[1..nm] of integer;
i, j, m, n, mina: integer;
begin
Write('Введите число строк и столбцов массива: '); Readln(m,n);
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
for i:=1 to m do
begin
mina:=32767;
for j:=1 to n do if mina>a[i,j] then mina:=a[i,j];
b[i]:=mina
end;
Writeln('Сформированный массив');
for i:=1 to m do Write(b[i]:4);
Writeln
end.
Тестовое решение:
Введите число строк и столбцов массива: 6 5
Исходный массив
46 -32 -6 20 36
-2 -41 -10 -42 26
-33 16 -25 9 46
-36 20 -50 36 -37
-41 16 34 -8 9
38 -36 -14 -18 -33
Сформированный массив
-32 -42 -33 -50 -41 -36
Не нашли ответ?
Похожие вопросы