Помогите к зачёту допуститься. =) Необходимо создать матрицу 6 на 8 заполнить её с клавиатуры, вывести на экран, далее найти максимальный элемент в каждом столбце, и умножить этот элемент на соответствующий столбец (на все элементы столбца). Вывести результат в новую матрицу.
Как создать матрицу то и вывести на экран знаю, а вот дальше застрял. Помогите пожалуйста, заранее спасибо.
Код:
uses
SysUtils,
math;
type
matr=array[1..6,1..8] of integer;
matr2=array[1..6,1..8] of integer;
var
a:matr;
b:matr2;
i,j:byte;
n,m,n1,m1:integer;
begin
writeln('vvedite n,m');
readln(n,m);
writeln('vvedi matr');
for i:=1 to n do
for j:=1 to m do begin
readln(a[i,j]);
end;
begin
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
end;
//тут поиск должен быть и дальнейшие действия
Readln;
end.
Admin: Не забываем про теги!