Program test;
var
a:array[1..5] of integer;
i:byte;
begin
for i:=1 to 5 do
Readln(a[i]);
Write('Получившийся массив:');
for i:=1 to 5 do
Write(' ',a[i])
end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (n, m) := ReadInteger2;
var a := ArrRandom(10, n, m);
a.Println
end.
<h2>-8 13</h2><h2>-7 11 10 -6 -5 -2 -4 13 13 10</h2>
| | | | | | | | | |
__________________
–| |–
–| |–
–| INTEL |–
–| |–
–| |–
–|___________________|–
| | | | | | | | | | |
примерно так