Предмет: Информатика,
автор: Аноним
Задача Паскаль )))10 класс
Найти максимальный элемент двумерного массива. Размерность вводится с клавиатуры,массив заполняется случайным образом.Массив распечатать в виде таблицы(без setlength)
помогите пожалуйста,кто тут шарит по информатике?!
Ответы
Автор ответа:
0
var
i, n, m, j, max: integer;
ar: array[1..10000, 1..10000]of integer;
begin
randomize;
readln(n, m);
for i := 1 to n do
for j := 1 to m do
begin
ar[i, j] := random(1, 100);
if(i = 1) and (j = 1) then max := ar[1, 1];
if(ar[i, j] > max) then max := ar[i, j];
end;
writeln('Максимальный элемент:', max);
for i := 1 to n do
begin
for j := 1 to m do write(ar[i, j]:4, ' ');
writeln;
end;
end.
i, n, m, j, max: integer;
ar: array[1..10000, 1..10000]of integer;
begin
randomize;
readln(n, m);
for i := 1 to n do
for j := 1 to m do
begin
ar[i, j] := random(1, 100);
if(i = 1) and (j = 1) then max := ar[1, 1];
if(ar[i, j] > max) then max := ar[i, j];
end;
writeln('Максимальный элемент:', max);
for i := 1 to n do
begin
for j := 1 to m do write(ar[i, j]:4, ' ');
writeln;
end;
end.
Автор ответа:
0
var a:array [1..100,1..100] of integer;
n,m,i,j,max:integer;
begin
Randomize;
write('n = ');
readln(n);
write('m = ');
readln(m);
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(51);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then max:=a[i,j];
writeln('max = ',max);
end.
Пример:
n = 4
m = 5
Исходный массив:
32 24 18 0 11
36 46 13 31 36
27 49 14 50 35
9 25 15 35 41
max = 50
n,m,i,j,max:integer;
begin
Randomize;
write('n = ');
readln(n);
write('m = ');
readln(m);
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(51);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then max:=a[i,j];
writeln('max = ',max);
end.
Пример:
n = 4
m = 5
Исходный массив:
32 24 18 0 11
36 46 13 31 36
27 49 14 50 35
9 25 15 35 41
max = 50
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Русский язык,
автор: dalikhanalikhan
Предмет: Английский язык,
автор: looflood9
Предмет: Алгебра,
автор: semenow2020