помогите написать программу в паскале
В массиве А (15) целых чисел поменять местами 5 и 13 элементы. Вывести начальный и изменены массивы в строку через два пробела.
В массиве А (15) целых чисел поменять местами 5 и 13 элементы. Вывести начальный и изменены массивы в строку через два пробела.
More Questions From This User See All
Answers & Comments
Verified answer
program fff;const
n = 15;
var
arr: array[1..n] of integer;
t : integer;
begin
for t := 1 to n do begin
arr[t] := random(101);
write(arr[t], ' ');
end;
writeln();
t := arr[5];
arr[5] := arr[13];
arr[13] := t;
for t := 1 to n do begin
write(arr[t], ' ');
end;
end.