Сформировать одно мерный массив из максимальных элементов столбцов матрицы.
Заранее спасибо
Другие языки программирования и технологии
Сформировать одномерный массив на языке программирования Паскаль
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.
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.
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.
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.
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.
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.
Похожие вопросы
- как сформировать одномерный массив различных чисел в паскале?
- Помогите решить задачу по информатике. Массивы. Язык программирования Паскаль.
- Стоит ли учить язык программирования: Паскаль
- Подскажите сайт где можно обучиться языку программирования "паскаль"?
- Для чего нужен язык программирования паскаль?
- Язык программирования Паскаль
- Для чего язык программирования Паскаль? Зачем его учат. И что на нём пишут
- Как можно использовать язык программирования Паскаль ? Кроме самых простых вычислений.
- Напишите программу на языке программирования Паскаль, . которая вычисляет дискриминант квадратного уравнения
- Всем привет !!!я сегодня научу вас писать самим программу на языке программирования "паскаль"