begin Write('Введите через пробел девять целых чисел в порядке возрастания: '); for i := 1 to n - 1 do Read(a[i]); Write('Введите целое число для вставки: '); Read(k); {Определим позицию для вставки} i := 1; while (k > a[i]) and (i < n) do i := i + 1; {Выполним сдвиг бОльших элементов вправо} for j := n - 1 downto i do a[j + 1] := a[j]; {Осуществим вставку} a[i] := k; {Контрольный вывод} Writeln('Результирующий массив'); for i := 1 to n do Write(a[i], ' ') end.
Тестовые решения: Введите через пробел девять целых чисел в порядке возрастания: 3 6 8 10 14 15 17 19 24 Введите целое число для вставки: 25 Результирующий массив 3 6 8 10 14 15 17 19 24 25
Введите через пробел девять целых чисел в порядке возрастания: 3 6 8 10 14 15 17 19 24 Введите целое число для вставки: 0 Результирующий массив 0 3 6 8 10 14 15 17 19 24
Введите через пробел девять целых чисел в порядке возрастания: 3 6 8 10 14 15 17 19 24 Введите целое число для вставки: 13 Результирующий массив 3 6 8 10 13 14 15 17 19 24
Всё сделано, принимайте работу)))
Объяснение:
Задача №1:
var a: array [1..100] of integer;
i,ch :integer;
begin
ch:= 0;
for i:= 0 to 8 do
begin
a[i]:= 4 + i*5;
writeln(i+1,'. x = ',a[i],' -- ',a[i]*a[i]);
end;
end.
Задача №2:
var a: array [1..100] of integer;
i,ch :integer;
begin
ch:= 0;
for i:= 0 to 9 do
begin
a[i]:= 3 + i*3;
writeln(i+1,'. x = ',a[i],' -- S = ',a[i]*a[i]*Pi:0:4);
end;
end.
Задача №3:
var x,i,a :integer;
begin
writeln('x = ');
readln(x);
a:= 1;
for i:= 1 to x do
begin
a:= a*i;
end;
writeln('x! = ',a);
end.