Readln;. Задача №7.. Вычислить значения факториалов2!, 4!, 6!

Начальное значение переменной цикла: н. з. = 1

Конечное значение переменной цикла: к. з. = 6

Шаг переменной цикла: h = 2

i = 1, 1 ≤ 6, да F = 1 * 1 * (1 + 1) i= 1 + 2

i= 3, 3 ≤ 6, да F = 2 * 3 * (3 + 1) i = 3 + 2

i= 5, 5 ≤ 6, да F = 24 * 5 * (5 + 1) i= 5 + 2

i= 7, 7 ≤ 6, нет

Задача №8.Ввод, вывод, инвертирование одномерного массива A[ i ] длиной n. Оператор цикла For (прямой пересчет)

Константа: n – длина массива.

Входные данные: элементы массиваA,которые мы сами вводим с клавиатуры.

Выходные данные: инвертированный массив A.

Промежуточные переменные: R – переменная, с помощью которых мы производим обмен элементов в цикле.

Const n=7;

Var i, R: integer;

A: array [1..n] of integer;

Begin

For i:=1 to n do

Begin

Write(' введите A[' , i , '] ');

Readln(A[i]);

End;

Writeln(' массив A: ');

For i:=1 to n do Write(A[i]), ' ');

For i:=1 to n div 2 do

Begin

R:=A[i];

A[i]:=A[n-i+1];

A[n-1+i]:=R;

End;

Write('инвертированный массив A: ');

For i:=1 to n do Write(A[i]), ' ');

Readln;

Readln;

End.

Задача №9. Удаление k-ого элемента из массива A длиной n. Оператор цикла For (прямой пересчет)

Константа: n – длина массива.

Входные данные: элементы массива A[ i ], которые мы сами вводим с клавиатуры.

Выходные данные: массив A с удаленным элементом.

Program mas4;

Var i, k: integer;

A: array [1..n] of integer;

Begin

For i:=1 to n do

Begin

Write(' введите A[' , i , '] ');

Readln(A[i]);

End;

Writeln (' массив A: ');

For i:=1 to n do Write(A[i]), ' ');

Write(' введите номер удаления k');

Readln(k);

For i:=k to n-1 do A[i]:=A[i+1];

Write (' Массив A судаленным элементом: ');

For i:=1 to n do Write(A[i]), ' ');