1.
program z1;
var a:array [1..10] of integer;
i,k:integer;
begin
write ('Введите элементы массива через пробел и нажмите Enter ');
for i:=1 to 10 do read (a[i]);
write ('Массив: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
write ('Номера элементов больше 5: ');
for i:=1 to 10 do if a[i] > 5 then
begin
write (i,' ');
k:=k+1
end;
writeln;
writeln ('Элементов больше 5: ',k)
end.
2.
program z2;
var s:string;
begin
readln (s);
while pos('о',s)<>0 do delete(s,pos('о',s),1);
writeln(s)
end.
Объяснение:
Смотри картинки
2. Программа удаляет только строчные русские о
ответ: СТЕНОГРАФИЯ
НТЯГФЕСАРОИ
НТЯГФЕСАРИО (11 10)
НТЯГФЕСАОИР (11 9)
НТЯГФСЕАОИР (7 6)
НТЯГОСЕАФИР (9 5)
НТЕГОСЯАФИР (7 3)
НГЕТОСЯАФИР (4 2)
ГНЕТОСЯАФИР (2 1)
ГТЕНОСЯАФИР (2 4)
СТЕНОГЯАФИР (6 1)
СТЕНОГРАФИЯ (7 11)