Сформировать двумерный массив А размером 6*8 с помощью генератора случайных чисел и...
Сформировать двумерный массив А размером 6*8 с помощью генератора случайных чисел и вывести элементы массива на экран. Найти наибольшие элементы каждой строки матрицы и записать их в одномерный массив В. Вывести элементы массива В на экран.
Язык программирования?
Pascal

Предыдущий
вопрос Следующий
вопрос

program Main;
var
A: array[1..6, 1..8] of integer;
B: array[1..6] of integer;
i, j, max: integer;

begin
// заполняем массив A случайными числами
randomize;
for i := 1 to 6 do
begin
for j := 1 to 8 do
begin
A[i, j] := random(100);
write(A[i, j], ' ');
end;
writeln;
end;

// находим наибольшие элементы каждой строки и записываем в массив B
for i := 1 to 6 do
begin
max := A[i, 1];
for j := 2 to 8 do
begin
if A[i, j] > max then
max := A[i, j];
end;
B[i] := max;
end;

// выводим массив B на экран
writeln('Наибольшие элементы каждой строки:');
for i := 1 to 6 do
begin
write(B[i], ' ');
end;
end.