дан массив из 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
