Поделитесь своими знаниями, ответьте на вопрос:
Составьте программу, которая формирует массив из 15 случайных целых цифр от -20 до 20 и меняет местами значения первого и последнего элементов массива.на экран выводятся исходные и преобразованные значения.надо
program xxx;
var i : integer;
a : array[1..15] of real; n : real; begin randomize; for i: =1 to 15 do a[i]: =random(20)-20;
writeln('исходный массив а: ');
for i: =1 to 15 do
write(a[i]);
n: =a[1];
a[1]: =a[15];
a[15]: =n;
writeln('полученный массив а: ');
for i: =1 to 15 do
write(a[i]);
readln
end.