дан массив из 15 чисел поменять местами 5 с 10 можешь программу написать

Вопрос от пользователя: Геруня

дан массив из 15 чисел поменять местами 5 с 10 можешь программу написать

Ответ: Анжела

const

n = 15;

var

a:array[1 … 15] of real;

temp:real;

i:integer;

begin

randomize;

writeln (‘Исходный массив:’);

for i : = 1 to n do

begin

a[i] : = (random (101) — 50) / 10;

write (a[i], ‘ ‘);

end;

writeln;

temp : = a[5];

a[5] : = a[10];

a[10] : = temp;

writeln (‘Преобразованный массив:’);

for i : = 1 to n do

write (a[i], ‘ ‘);

writeln;

end.