Const
n=10;
m=5;
var
s:real;
i,j:integer;
a:array[1..m,1..n]of real;
begin
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:6);
end;
writeln;
end;
s:=a[1,1];
for i:=1 to m do
for j:=1 to n do a[i,j]:=a[i,j]/s;
writeln('Преобразованный массив:');
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:6:3);
writeln;
end;
<span>end.</span>
Объяснение:често незнаю кстати это какй класс просто интересно
Полный текст программы:
var a: array[1..50] of Integer;
i,x,imax,j,n: Integer;
begin
for i:=1 to n-1 do
begin
imax:=i;
for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x;
end;
end.
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.