1) Семь
2) Три
Решение могу записать в комментарии, если нужно
Type LinMass = array [1..1000] of Integer;
<span>Var A : LinMass; N, i, j : Integer; </span>
begin
Write('Количество элементов массива: '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); ReadLn(A[i]);
End;
i:=1;
while i <= n do
if (A[i] mod 2 = 0) and (A[i] mod i = 0) and (A[i] div 1000 = 0) and (A[i] div 100 > 0)
then begin
for j:=i+1 to n do A[j-1]:=A[j];
n:=n-1
end
else i:= i+1;
For I := 1 To N Do
write(a[i]:6);
<span>end.</span>
№1
а)
1-й шаг - длина цепочки - 3 символа
2-й шаг - в этой цепочке 3 буквы с-но число букв кратно трём. Прибавляем букву "С" в конец цепочки. Получаем цепочку РТПС
3-й шаг - меняем каждую букву на следующую, используя русский алфавит. Получаем СУРТ
4-й шаг - переписываем цепочку от конца к началу. Проще говоря: переворачиваем её. Из СУРТ получаем ТРУС
Результат: ТРУС
ЗА
1-й шаг - длина цепочки 2 символа
2-й шаг - 2 не кратно числу 3, с-но прибавляем букву "С" в начало цепочки. Получаем цепочку СЗА
3-й шаг - меняем каждую букву на следующую, используя русский алфавит. Получаем ТИБ
4-й шаг - переписываем цепочку от конца к началу. Проще говоря: переворачиваем её. Из ТИБ получаем БИТ
Результат: БИТ
б)
Дальше расписывать так-же подробно не буду, алгоритм всё равно тот-же
1-й шаг: ЁГКГФ - 5
2-й шаг: СЁГКГФ
3-й шаг: ТЖДЛДХ
4-й шаг: ХДЛДЖТ
5-й шаг: ХДЛДЖТ - 6
6-й шаг: ХДЛДЖТС
7-й шаг: ЦЕМЕЗУТ
8-й шаг: ТУЗЕМЕЦ
p.s
сорян если ошибки =(