У тебя всё есть дерзай! У тебя всё получится!!
Var
s1,s2 : String;
n,i : Integer;
Begin
n:=0;
Readln(s1);
Readln(s2);
For i:=1 to Length(s1) do If Pos(s1[i],s2)=0 then Inc(n);
Writeln(n);
end.
Const
n = 12;
Var
A:array[1..12] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(31)-20;
Write(' ',A[i])
End;
WriteLn;
Write('Номера отрицательных элементов:');
For i:= 1 to N do
if A[i] < 0 then Write(' ',i)
End.
Сначала массив Dat заполняется числами 2, 8, 6, ..., 7.
Затем производится поиск максимума среди Dat[1], Dat[8..12] (стандартный алгоритм: в m хранится текущий максимум, в month – номер месяца, в котором этот максимум впервые реализуется. Перед циклом m = Dat[1], month = 1, в цикле если элемент массива больше текущего максимума, то текущий максимум и номер месяца перезаписываются).
Наконец, выводится month – номер месяца, в котором впервые количество детских праздников достигает максимума.
Максимальное значение равно 8, впервые встречается среди Dat[1], Dat[8..12] в Dat[9].
Ответ: 9.