program v1;
Var a:array [1..10] of integer;
i,j,j1,min,n,max,q:integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(31)+10;
Writeln (' Znachenija matracy ');
for i:=1 to 10 do write (a[i]:3); writeln;
Max:=a[1];
for i:=1 to 10 do
if a[i]>=max then begin
max:=a[i];
j:=i;
end;
min:=a[1];
for i:=1 to 10 do
if a[i]<=min then begin
min:=a[i];
j1:=i;
end;
q:=a[j1];
a[j1]:=a[j];
a[j]:=q;
For i:=1 to 10 do write (a[i]:3); writeln;
Writeln (' Maxim element = ',max);
writeln (' Minim element = ',min);
end.
===== PascalABC.NET =====
begin
var a := MatrRandom(5, 5, -99, 99);
a.Println(4);
var b := a.Col(1);
Println('Сумма элементов 2 столбца:', b.Sum);
Print('Массив из 2 столбца:');
b.Println
end.