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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт