Написать программу в ! составить процедуру, заменяющую в исходной строке символов все единицы нулями и все нули единицами. замена выполняется, начиная с заданной позиции строки.

Var k: integer; s: string; procedure zamena(var ss: string; p: integer); var i: integer; begin for i: =p to length(ss) do begin if ss[i]='1' then ss[i]: ='0' else if ss[i]='0' then ss[i]: ='1'; end; end; begin writeln('введите строку: '); readln(s); writeln('введите позицию с которой начинать замену: '); readln(k); zamena(s,k); writeln('измененная строка: ',s); end.

в достаточно держать в памяти два числа: наибольшее и второе по величине – и обновлять эту пару, считывая числа. если считанное число больше максимального, то оно будет новым максимумом, а бывший максимум станет вторым по величине; если считанное число меньше максимального, но больше второго по величине, то оно становится новым вторым по величине.

реализация (python 3):

max, max2 = int( int(

if max2 > max:

    max, max2 = max2, max

while true:

    t = int(

    if t == 0: break

    if t > max:

            max, max2 = t, max

    elif t > max2:

            max2 = t

print(max2)

пример ввода:

5

1

3

2

4

0

пример вывода:

4

Program arr; const n=3; var i, j, tmp, k, z: integer;       c: boolean;       a: array [1..n,1..n] of integer; begin c: =false; for i: =1 to n do   for j: =1 to n do       read(a[i][j]); for i: =1 to n do   for j: =1 to n do       begin       tmp: =a[i][j];       for k: =i+1 to n do           for z: =j+1 to n do               if tmp = a[k][z] then               c: =true;       end; writeln; for i: =1 to n do begin   for j: =1 to n do       write(a[i][j], ' ');   writeln; end; if c = true then   writeln('в данном массиве есть равные друг другу элементы')   else writeln('элементы, равные друг другу, отсутсвуют в данном массиве'); end.