ДВУМЕРЕН МАСИВ

* Deklarirane na tip masiw

Type <ime na tip>=Array[M..N, M1..N1] OF <tip na elementite>;

* Obqwqwane na promenliwi

Var <spisuk s promenliwi>:<ime na tip masiw>;

*Vuvejdane na elementi

For I:=1 TO 10 DO

FOR J:= 1 TO 20 DO

Begin

Write ('B[',I,',',J,']=');

Readln(B[i,J]);

End;

*Izwejdane na elementi

For I:=1 TO 10 DO

For J:=1 TO 20 DO

Writeln('B[',I,',',J,']=',B[i,J]);

*Sumirane

S:=O;

FOR I:=1 TO 10 DO

FOR J:=1 TO 20 DO

S:=S+B[i,J];

*Proizwedenie

P:=1;

FOR I:=1 TO 10 DO

FOR J:=1 TO 20 DO

P:=P*B[i,J];

*Broi na Elementi

BR:=0

FOR I:=1 TO 10 DO

FOR J:=1 TO 20 DO

IF B[i,J]=<uslovie> THEN

BR:=BR+1

*Maksimalen element na masiv

MAX:=B[i,J];

FOR I:=1 TO 10 DO

FOR J:=1 TO 20 DO

IF B[i,J]<Max Then

Max:=B[i,J];

*Minimalen element na masiw

Min:=B[i, J];

FOR I:=1 TO 10 DO

FOR J:=1 TO 20 DO

IF B[i,J]>MIN THEN

MIN:=B[i,J];