Question

Помогите плз на кону моя девственность

Answer 1

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;
  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]<min)and(a[i,j] mod 2=0) then min:=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