<span>1.Сначала требуется спросить у пользователя на сколько уменьшить.<span>Затем следует склеить "Вопрос" и то, что ввел пользователь. Это можно сделать с помощью команды слить … …, находящейся в операторах. Б</span></span><span>лок </span>изменить размер<span> и </span>установить размер, при его помощи меняем размер
Const
n = 10;
var
a: array[1..n] of integer;
i, j, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(16)-10;
Write(a[i]:4)
end;
Writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
<em><u>Тестовое решение:</u></em>
Исходный массив
-10 -9 2 -3 -6 -10 -2 5 4 0
Отсортированный по возрастанию массив
-10 -10 -9 -6 -3 -2 0 2 4 5
3..................................................................................
Program chisla;
uses crt;
var a,b,c : integer;
begin
Readln(a);
b:=a+5;
c:=a*10;
writeln(b);
writeln(c);
end.
Ночь - дочь - дичь - динь - день