Question

Я прошу Вас,ребятка,помогите,мне очень срочно нужно.

Одномерный массив из 6 элементов с номерами от 3 до 8 заполнить случайным образом числами от 5 до 17. Поменять местами 5-ый и 7-ой элементы массива,а 4-ый элемент увеличить в 3 раза. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.

Answer 1

var
   i:integer;
  a:array[3..8]of integer;
begin
writeln('Исходный массив:');
for i:=3 to 8 do
  begin
  a[i]:=random(5,17);
  write(a[i]:4);    end;
writeln;
i:=a[7];
a[7]:=a[5];
a[5]:=i;
a[4]:=a[4]*3;
writeln('Преобразованный массив:');  
for i:=3 to 8 do
  write(a[i]:4);
end.