//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i:integer;
b:boolean;
begin
b:=true;
writeln('Array:');
for i:=1 to n do readln(ar[i]);
for i:=1 to n div 2 do
if ar[i]<>ar[n-i+1] then b:=false;
if b=true then writeln('Симметричны') else writeln('Не симметричны');
end.
Пример ввода:
1
2
3
2
1
Пример вывода:
Симметричны
Const
n = 13;
Var
X:array[1..n] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to n do
Begin
X[i]:=random(2*n)-n;
Write(' ',X[i]);
if X[i]<0 then S:=S+i
End;
WriteLn;
WriteLn('S = ',S);
End.
В состав АРИФМЕТИЧЕСКИХ выражений входят:
переменные числового типа, числа , арифметические операции и математические операции, выраженные в виде функций.
В состав ЛОГИЧЕСКИХ выражений входят:
логические переменные, логические операции;
числа, числовые и строковые переменные или выражения, которые сравниваются между собой
операциями сравнения (< >= и пр.)
В состав СТРОКОВЫХ выражений входят:
переменные строкового типа, строки и строковые функции, операция конкатенации (объединения).
Алгоритм ветвления это такой алгоритм, в котором выбирается один из нескольких вариантов (путей).