Перевидите следующие предложения, обращая внимание на пассивные конструкции, характерные для языка 1. i was told they had settled the matter 2. were all points cleared up yesterday? 3. a lot of leaflets had been sent to the exhibition before the opening of the exhibition 4. these goods are sold very well because of high quality

varstr1,str2: string; c: char; i: integer; beginwrite('введите первое слово: '); readln(str1); write('введите второе слово: '); readln(str2); i: =1; while i< =(length(str2) div 2) do // переворот второй строки.  begin                                                                                      // строка  - массив символов, и как в массиве просто       c: =str2[i];                                                                     // меняем элементы местами с использованием       str2[i]: =str2[length(str2)-i+1]; // переменной.      str2[length(str2)-i+1]: =c;       i: =i+1;   end;   writeln(pos(str2,str1));   end.

1.

const nn=50; vara: array [1..nn,1..nn] of integer; i,j,k,l,n: integer; beginwriteln('n= '); readln(n); for i: =1 to n do  for j: = 1 to n do      readln(a[i,j]);   writeln;   writeln('сформированный массив: ');   for i: =1 to n do  begin  for j: = 1 to n do      write(a[i,j],' ');       writeln; end; writeln; writeln('индексы равных элементов: '); for i: =1 to n do      for j: = 1 to n do          for k: =i+1 to n do              for l: = j to n do              if (a[i,j] = a[k,l]) then writeln('[',i,',',j,'] = [' ,k,',',l,']'); end.

2. недостаточно данных для решения .