const
n = 3;
var
a: Array[1..n, 1..n] of Integer;
j, i, s: integer;
begin
Randomize;
Writeln('Случайная матрица:');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(51) - 25;
Write(a[i, j]:5);
end;
Writeln
end;
for i := 1 to n do
begin
j := n + 1 - i;
s := s + a[i, j];
end;
Writeln('Сумма элементов побочной диагонали: ', s);
Readln
end.
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadlnString;
var (m,n):=ReadInteger2('Введите через пробел m и n:');
Swap(a[m],a[n]); a.Println;
end.
<u>Пример</u>
Информатика
Введите через пробел m и n: 5 2
Ирфонматика
Это называется компьютерные гаджеты
Program Task;
Var i, N: Integer;
Begin
Write('N = ');
ReadLn(N);
For i := 1 To N Do
Write(i, ' ');
ReadLn;
<span>End.</span>
Program n1;
Uses CRT;
Const n=5;
Var x: array[1..n,1..n] of integer;
a: array[1..n] of integer;
i,p,s,j: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
For j:=1 to n do
x[i,j]:=random(100);
j:=1;
Repeat
For i:=1 to n do
If a[j]<x[i,j] then a[j]:=x[i,j];
write(a[j]:4);
j:=j+1;
Until j=n+1;
p:=1;
writeln;
For i:=1 to n do
If i mod 2=0 then s:=s+a[i]
else p:=p*a[i];
writeln('Proizvedenie =',p,',Summa =',s);
readln
end.