Написати функцію пошуку заданого елемента в списку. Використовуючи цю функцію: а) підрахувати кількість входжень заданого символу в кожний рядок тексту. Входження задавати номером рядка й номером позиції в рядку;
б) знайти всі входження (див. пункт 1.а) заданого символу в текст;
в) знайти перше входження (див. пункт 1.а) кожної десяткової цифри в текст;
г) знайти перше входження (див. пункт 1.а) голосних латинських букв у текст;
д) підрахувати кількість входжень парних (непарних) десяткових цифр у кожний рядок тексту;
е) замінити заданий символ, якщо він є в тексті, на нове значення (символ), уважаючи, що символ входить у кожний рядок не більш одного разу;
ж) вилучити всі входження заданого символу з тексту;
з) після останнього входження кожної голосної латинської букви в рядок тексту вставити цифру, що зображує число входжень цієї голосної в даний рядок (у рядку міститься не більш дев'яти однакових голосних);
і) якщо в рядку тексту міститься заданий символ, то перемістити його на місце першого символу в цьому рядку;
к) якщо в рядку тексту міститься заданий символ, то перемістити його на місце останнього символу в цьому рядку.
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.
begin
var a:=ArrRandom(100,-10,10);
a.Println;
Writeln(a.Where(x->x>0).Count,' положительных, ',
a.Where(x->x<0).Count,' отрицательных')
end.
Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных