Другие языки программирования и технологии

Сформировать одномерный массив на языке программирования Паскаль

Сформировать одно мерный массив из максимальных элементов столбцов матрицы.
Заранее спасибо
var n, i, j, max: integer;
a: array [1..100, 1..100] of integer;
b: array [1..100] of integer;
begin
write (' n = ');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=10+random(90);
write (a[i,j]:4);
end;
writeln;
end;
{поиск максимального в каждой столбце}
for j:=1 to n do
begin
b[j]:=0;
for i:=1 to n do
begin
if i=1 then max:=a[i,j];
if a[i,j] > max then max:=a[i,j];
end;
b[j]:=max;
end;
writeln;
for j:=1 to n do write (b[j]:4);
end.
Эльдар Алиев
Эльдар Алиев
24 309
Лучший ответ
const
width = 10; {ширина матрицы - кол-во столбцов}
height = 5; {высота матрицы - кол-во строк}
type
tVector = array [1..width] of integer;
tMatrix = array [1..height] of tVector;
var
vector: tVector;
matrix: tMatrix;
i, j: integer;
begin
{Здесь должно быть заполнение матрицы matrix}

{Собственно поиск максимальных элементов}
vector := matrix[1];
for i := 2 to height do for j := 1 to width do if vector[j] < matrix[i, j] then vector[j] := matrix[i, j];

{Здесь должен быть вывод одномерного массива vector}
end.
Bahtik Charyew
Bahtik Charyew
64 997
Program Massive;
Uses Crt;
Const
row=10;
col=10;
Var
i,j,max:integer;
mas2: array[1..row,1..col] of integer;
mas1: array[1..col] of integer;
Begin
{Создание двумерного массива}
For i:=1 to row do
For j:=1 to col do
mas2[i,j]:=random(9)+1;

{Поиск максимума в столбце J}
For i:=1 to row do
begin
max:=mas2[i,1];
For j:=1 to col do
if mas2[i,j]>max then max:=mas2[i,j];

mas1[col]:=max;
end;

{Вывод результата}
For i:=1 to col do
write(mas1[i]:3);
End.
VS
Vladimir Saikin
11 008