FOR.
for i:=1 to 6 do for j:=1 to 6 do - i, 1 6
begin
A[i,j]:=random(100)-50 RANDOM -50 50.
write(a[i,j]); .
end
FOR - .
IF.. THEN. , a[ i,j ] max, max .
if max<a[i,j] then max:=a[i,j]; writeln('B ',i,'-CTPOKE MAX=',max);
FOR .
.
program v_17zad1;
type mas=array[1..6,1..6]of integer;
var
a:mas; i,j:byte;
procedure maxstr(m:mas);
var i,j:byte; max:integer;
Begin
for i:=1 to 6 do
begin
max:=a[i,1];
for j:=1 to 6 do if max<a[i,j] then max:=a[i,j]; writeln('B ',i,'-CTPOKE MAX=',max);
end;
End;
BEGIN
randomize;
writeln('UCXODHUY MACCUB');
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:5);
end;
writeln;
end;
maxstr(a);
END.
UCXODHUY MACCUB
37 -31 36 -50 1 15
27 -24 -49 8 -21 7
-44 17 -2 -31 -28 43
32 49 -23 -46 21 32
-22 -8 30 22 -15 1
1 -16 39 -38 -2 19
B 1-CTPOKE MAX=37
B 2-CTPOKE MAX=27
B 3-CTPOKE MAX=43
B 4-CTPOKE MAX=49
B 5-CTPOKE MAX=30
B 6-CTPOKE MAX=39
2
UCXODHUY MACCUB
11 49 16 -31 -45 -2
37 20 38 10 -17 -6
0 6 36 -38 41 0
32 23 -46 -47 -12 -21
8 27 6 -36 -48 -8
46 27 -31 -29 6 -47
B 1-CTPOKE MAX=49
B 2-CTPOKE MAX=38
B 3-CTPOKE MAX=41
B 4-CTPOKE MAX=32
B 5-CTPOKE MAX=27
B 6-CTPOKE MAX=46
M x N. M ( ) N ( ) .
, , 1.
1
, | |
N, M | |
I, J | |
P | |
F |
.
- .
1. . ,
. , a[i,j]:=random(20)-10( , 10 10).
FOR .
|
|
. =1, F =0.
. FOR. A[I,J]>0 F .
. =1 F=0, : ' ', .
.
: , , .
, .
program dom1; var a:array[1..100,1..100] of integer; i,j,n,m,f:integer; p:double; | dom1 , |