Я не совсем понял, зачем тебе тут randomize timer, но не суть. Сделал все в точности по коду.
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-45,45); a.Println;
Swap(a[0],a[9]); a.Println
end.
<u>Пример</u>
32 -1 21 17 13 11 -7 14 -7 4
4 -1 21 17 13 11 -7 14 -7 32
1) 65
2) AB
3) 1000111.111
4) 740.6
5) F8.4
Задача 1
а)А×В×А×В+В= а×а×в×2в
б)(А+В)×(А+В)=2А×2В
в)А+А×В+А×С=3а×В×С
× это умножить если че
Program nau;
var a: array [1..4, 1..4] of real; i,j: integer; k,l: real;
begin
for i:= 1 to 4 do
for j:= 1 to 4 do
begin
readln (a[i,j]);
end;
k:=a[1,1];
for i:= 1 to 4 do
for j:= 1 to 4 do
if a[i,j]>k
then k:=a[i,j];
writeln ('наибольший элемент массива = ',k);
<span>end.</span>