Question

Напишите программу, создающую матрицу с рандомными числами. Далее она должна определить наибольшее число в строке и вывести его напротив этой строки. Также и со столбцами. Язык- паскаль​

Answer 1

Var i, j,s,k, max:Integer;

A:array[1..10, 1..10] of Integer ;

Begin

Randomize ;

Max:=0;

For i:=1 to 3 do begin

Writeln;s:=0;

For j:=1 to 3 do begin

A[i,j]:=random(10) ;

Write(' ', A[i,j]);

If A[i, j]>s then

s:=A[i, j];end;

If s>max then max:=s;

Write(' ', s) ;End;writeln;

For j:=1 to 3 do begin

K:=0;

For i:=1 to 3 do begin

If A[i, j]>k then k:=A[i, j];end;

Write(' ', k) ;end;

Write(' ', max) ;

End.