Сформировать массив из 20 вещественных чисел и поменять местами 5 и 10 элемент. Помогите...

Question

Сформировать массив из 20 вещественных чисел и поменять местами 5 и 10 элемент. Помогите пожалуйста . Решите для старой версии

Answer 1

Var a: array[1..20] of Real;
i: Integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(20);
writeln('Число: ',a[i]);
end;
a[5]:=a[10];
a[10]:=a[5];
for i:=1 to 20 do writeln(a[i]);
end.