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

108

410

Посмотреть ответы 3

Ответы на вопрос:

kros222999

Информатика

4,6(89 оценок)

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.

yaroslavat05

Информатика

4,5(67 оценок)

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