Составьте программу, которая заполняет массив [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.

Оцени ответ
Проблемы с решением?

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

Если же проблемы возникают регулярно, то возможно Вам стоит обратиться за помощью. Мы нашли великолепную площадку, которую без всяких сомнений можем порекомендовать. Там собраны лучшие преподаватели, которые обучили множество учеников. После обучения в этой школе, Вы сможете решать даже самые сложные задачи.

Foxford

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

Загрузить картинку