Третей переменной пусть будет "c"
с:=а {сначала "запоминаем" значение "а" с помощью третей переменной}
а:=в {далее делаем "а" равной "в"}
в:=с {затем "в" делаем равной "с" которая равна первому значению "а"}
Готово
+1, +2, +3, +4 арифметическая прогрессич
Var
k: integer;
m: real;
begin
writeln('Введите расстояние в километрах');
read(k);
m := k * 0.62;
writeln(k, ' км = ', m:0:2, ' миль');
readln;
end.
var
a:array[1..100] of real;
i, n:integer;
begin
write('Введите количество элементов '); readln(n);
for i := 1 to n do
begin
write('a[', i ,'] = ');
readln(a[i]);
end;
writeln;
writeln('Исходный массив:');
for i := 1 to n do
begin
write(a[i], ' ');
if i mod 2 = 1 then
a[i] := sqrt(a[i]);
end;
writeln;
writeln;
writeln('Преобразованный массив:');
for i := 1 to n do
write(a[i]:0:2, ' ');
writeln;
end.