...
int[] maxValues = new int[size1];
int max;
for (int i = 0; i < size1; i++)
{
max = a[i, 0];
for (int j = 0; j< size2; j++)
{
if (a[i, j] > max)
max = a[i, j];
}
maxValues = max;
}
...
Наименьший среди наибольших элементов строк двумерного массива(Pascal)
Помогите пожалуйста написать программу на Pascal: выберите наименьший среди наибольших элементов строк двумерного массива.
Цитата: kristinchik
Помогите пожалуйста написать программу на Pascal: выберите наименьший среди наибольших элементов строк двумерного массива.
Так а в чем трудности ?
Создаёшь двумерный массив,заполняешь его случайными числами или вводишь элементы с клавиатуры.Создаешь массив,где будут храниться наибольшие элементы строк и переменную.Пробегаешь по массиву и для каждой строки находишь максимальный элемент и заталкиваешь его в массив максимальных элементов.Как то так,правда это не на Pascal,но принцип тот же.
Код:
size1 - количество строк двумерного массива.Потом находишь минимум в массиве максимальных элементов.
Вот сделала)
Код:
uses crt;
const n=3; m=4;
type mas=array[1..n,1..m] of integer;
mas2=array[1..n] of integer;
var a:mas; b:mas2; i,j,k,min,max:longint;
begin
clrscr;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(33);
write(a[i,j]:4);
end;
writeln;
end;
k:=1;
for i:=1 to n do
begin
max:=a[i,1];
for j:=2 to m do
if max<a[i,j] then max:=a[i,j];
b[k]:=max;
inc(k);
writeln(max:4);
end;
min:=b[1];
for i:=2 to k-1 do
begin
if min>b then min:=b;
end;
begin
write('Наименьший среди наибольших элементов: ',min);
readln;
end;
end;
end.
const n=3; m=4;
type mas=array[1..n,1..m] of integer;
mas2=array[1..n] of integer;
var a:mas; b:mas2; i,j,k,min,max:longint;
begin
clrscr;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(33);
write(a[i,j]:4);
end;
writeln;
end;
k:=1;
for i:=1 to n do
begin
max:=a[i,1];
for j:=2 to m do
if max<a[i,j] then max:=a[i,j];
b[k]:=max;
inc(k);
writeln(max:4);
end;
min:=b[1];
for i:=2 to k-1 do
begin
if min>b then min:=b;
end;
begin
write('Наименьший среди наибольших элементов: ',min);
readln;
end;
end;
end.