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

CategoriesИнформатикаПредмет

элементы. Выведите на экран исходный и полученный массивы.

Ответы:

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.