Предмет: Информатика, автор: Аноним

Задача Паскаль )))10 класс
Найти максимальный элемент двумерного массива. Размерность вводится с клавиатуры,массив заполняется случайным образом.Массив распечатать в виде таблицы(без setlength)
помогите пожалуйста,кто тут шарит по информатике?!

Ответы

Автор ответа: igor9997799
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.
Автор ответа: petyaGavrikov
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
Похожие вопросы