Задание:
Дан произвольный двумерный массив целых чисел. Найти номер строки, в которой находится наибольшее по величинечисло
Решение:
Program n1; Uses CRT; Const n=10; Var A: array[1… n,1… n] of integer; i,j,max: integer; beginclrscr; randomize; For i: =1 to n do begin For j: =1 to n do begin a[i,j]: =random (100); write (a[i,j]: 4); end; writelnend; Writeln; max: =0; For i: =1 to n do For j: =1 to n do If a[i,j]>max then max: =a[i,j]; Writeln ('Maksimalnii element ',max,' nahoditsa v strokah'); For i: =1 to n do For j: =1 to n do If a[i,j]=max then write (i: 3); readlnend.
Знаете другой ответ?