Const N = 5; M = 6;
var
a: array[1..N, 1..M] of integer;
c: array[1..N] of integer;
i, j, mx, mn: integer;
begin
randomize;
writeln('Исходная матрица');
mn := 1;
for i := 1 to N do begin
mx := -(MaxInt-1);
for j := 1 to M do begin
// Случайное число от -500 до 500
a[i, j] := Random(1001) - 500;
// выводим
write(a[i, j]:5, ' ');
// Ищем макс в строке
if mx < a[i,j] then mx := a[i,j];
end;
c[i] := mx; // макс в строке
// Поиск минимума
if c[mn] > c[i] then mn := i;
writeln;
end;
writeln ('Вектор с');
for i := 1 to N do
write(c[i]:5, ' ');
writeln(#13, #10, 'минимальный элемент:');
writeln('c[', mn, '] = ', c[mn]);
end.