Question

Составьте программу, которая заполняет массив a [1..10] случайными целыми числами в диапозоне от 1 до 10, затем меняет местами первый и последний элементы. Выведите на экран исходный и полученный массивы.

Answer 1

program katyadamn;
var a:array[1..10] of integer;   
i,j:integer;
begin
writeln('Исходный массив:'); writeln;
for i:=1 to 10 do
begin
a[i]:=random(9)+1;
write(a[i],' ');
end;
j:=a[10];
a[10]:=a[1];
a[1]:=j;
writeln('Полученный массив:');
writeln;
for i:=1 to 10 do
write(a[i],' ');
end.