var
m:array[1..15] of integer;
i,n:integer;
begin
for i:=1 to 15 do
readln(m[i]);
n:=m[5];
m[5]:=m[10];
m[10]:=m[5];
end.
Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие. Таким образом, условный оператор - это средство ветвления вычислительного процесса.
Структура условного оператора имеет следующий вид:
if <условие> then <оператор1> else <оператор2>;
где if/ then/ else - зарезервированные слова (если, то, иначе);
<условие> - произвольное выражение логического типа;
<оператор1>, <оператор2> - любые операторы языка Object Pascal.
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.