1.
const n=4;
var
a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=i;
write(a[i,j]:4);
end;
writeln;
end;
end.
Результат:
1 1 1 1
2 2 2 2
3 3 3 3
4 4 4 4
2.
const m=4; n=5;
var
a:array[1..m,1..n] of integer;
i,j,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(96)-35;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to m do
begin
k:=0;
for j:=1 to n do
if a[i,j]<0 then k:=k+1;<br> writeln(i,'-я строка: ',k);
end;
end.
Пример:
Исходный массив:
50 -28 -3 36 47
-15 -23 38 -5 37
-14 9 4 5 45
16 -15 33 -5 -18
1-я строка: 2
2-я строка: 3
3-я строка: 1
4-я строка: 3
3.
const m=4; n=5;
var
a:array[1..m,1..n] of integer;
i,j,min:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(111)-65;
write(a[i,j]:4);
end;
writeln;
end;
min:=111;
for i:=1 to m do
for j:=1 to n do
if (a[i,j]writeln('min = ',min);
end.
Пример:
Исходный массив:
43 -31 -45 6 38
0 1 -63 44 -50
-34 -9 -6 -56 -15
-48 6 14 25 10
min = -56