Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
for i:=1 to n div 2 do write(a[i]:4, a[n-i+1]:4);
writeln;
end.
Пример:
<span>Массив A:
12 44 36 9 1 13 10 11 37 30
12 30 44 37 36 11 9 10 1 13</span>
var
c:integer;
begin
write('Введите число '); readln(c);
c := abs(c);
if c div 10 > c mod 10 then
writeln('Первая цифра больше второй')
else
if c div 10 < c mod 10 then
writeln('Вторая цифра больше первой')
else
writeln('Цифры равны');
end.
Сумма чаевых официанту: Sum = 0.15 * (X1 + X2 + X3);
Если X1 = X2 = X3, то Sum = 0.15 * 3 * X = 0.45 * X
Выбирай точка с запятой, например:
echo "Hello World";