Название команды :купи билет - 4)получи билет.
название команды :займи своё место - 3)найди свой ряд.
Const
m = 5;
n = 8;
var
a: array[1..m, 1..n] of integer;
i, j, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
for j:=1 to n do begin t:=a[1,j]; a[1,j]:=a[3,j]; a[3,j]:=t end;
Writeln('Полученный массив');
for i := 1 to m do
begin
for j := 1 to n do Write(a[i,j]:4);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходный массив
45 20 -15 33 -37 26 -30 -3
-27 43 -24 4 -14 18 -50 5
-28 -47 11 27 -8 42 -19 -39
16 43 -18 0 -32 25 11 22
27 -37 -44 -38 -50 7 -45 -30
Полученный массив
-28 -47 11 27 -8 42 -19 -39
-27 43 -24 4 -14 18 -50 5
45 20 -15 33 -37 26 -30 -3
16 43 -18 0 -32 25 11 22
27 -37 -44 -38 -50 7 -45 -30
Видимо имеется ввиду выводящий максимальны элемент этого массива
В данном примере матрица формируется при помощи случайных чисел
program MatrixMax;
Uses Crt;
type matrix=array[1..4,1..4] of real;
var m:matrix;
max:real;
{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=25+random(21);
end;
end;
end;
{Вывод матрицы на экран}
procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
for k:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
{Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
max:=m[1,1]
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (max<m[i,j]) then max:=m[i,j];
end;
end;
end;
begin
Clrscr;
Auto;
PrintMatrix;
Max;
writeln;
writeln('Максимальный элемент матрицы: ',max);
end.
//программа находит количество всех делителей числа, включая само число и 1
Program n1;
var x,i,k: integer;
begin
readln(x);
k:=0;
for i:=1 to x do if x div i=x/i then k:=k+1;
write('кол-во целых делителей числа ',x,': ',k);
end.