Паскаль тілінде есептер жиынты?ы. №1-40 есеп.

№1 Кез келген екі ?лшемді массивті? е? ?лкен элементін табу программасын к?р.

Program m1;

Var A:array [1..100,1..100] of integer;

n,m,i,j,max:integer;

Begin

Writeln('массив элементiн енгiз');

readln(n,m);

randomize;

For i:=1 to n do

for j:=1 to m do

A [i,j]:=-25+random(100);

For i:=1 to n do Begin

writeln;

For j:=1 to m do

write (A[i,j]:4); end;

max:=A[1,1];

For i:=1 to n do

For j:=1 to n do

if A[i,j]>max then max:=A[i,j];

writeln;

writeln ('max=',max:5);

readln

end.

№2 Кез келген екі ?лшемді массивтегі о? элементер санын табу  программасын ??ру

Program E2;

Var A: array [1..100, 1..100] of integer;

i,n,m,j,k:integer;

begin

randomize;

writeln('massiv olhemin engiz');

Readln(n,m);

For i:=1 to n do

For j:=1 to m do

A[i,j]:=-25+random(100);

For i:=1 to n do begin

writeln;

for j:=1 to m do

write (A[i,j]:5); end;

k:=0;

for i:=1 to n do

for j:=1 to m do

if A[i,j]>0 then k:=k+1;

writeln;

writeln('он элементтер саны=',k);

Readln

end.