Составить программу, используя двумерные массивы:
Найти максимальное число в третьем столбце матрицы
(Pascal)
Ответы
Ответ дал:
1
Ответ:
var
a: array[,] of integer;
m, n, i, j, max: integer;
begin
Write('Введите размер матрицы M и N: '); ReadLn(m, n);
SetLength(a, m, n);
randomize;
max := - 100;
WriteLn('Массив:');
for i := 0 to m - 1 do
begin
for j := 0 to n - 1 do
begin
a[i, j] := random(200) - 100;
Write(a[i, j]:4);
if (a[i, j] > max) and (j = 2) then max := a[i, j];
end;
WriteLn;
end;
WriteLn('Максимальное число в третьем столбце матрицы равно ', max);
end.
Объяснение:
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад