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


Program Program1;
Var
a:array [1..10] of integer;
i,temp:integer;
begin
randomize;
writeln(Исходный массив:);
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
writeln(a[,i,]=,a[i]);
end;
temp:=a[1];
a[1]:=a[10];
a[10]:=temp;
writeln;
writeln(Полученный массив:);
for i:=1 to 10 do
writeln(a[,i,]=,a[i]);
end.

Оцени ответ
Не нашел ответ?

Если ответа нет или он оказался неправильным по предмету Информатика, то попробуй воспользоваться поиском на сайте или задать вопрос самостоятельно.

Найти другие ответы

Загрузить картинку
Предметы