2. учитель проводил диктант по теме “определения”. каждый, из учеников – коля, сережа, ваня, толя, надя — ошибся в одном из пяти диктанта, причем все они ошиблись в разных . по окончании работы учащиеся высказались об ошибках, сделанных их одноклассниками, следующим образом. 1-й ученик: “коля ошибся в первом , а ваня – в четвертом”. 2-й ученик: “сережа ошибся во втором, а ваня — в четвертом ”. 3-й ученик: “сережа ошибся во втором, а коля – в третьем ”. 4-й ученик: “толя ошибся в первом , а надя – во втором”. 5-й ученик: “надя ошиблась в третьем , а толя – в пятом”. оказалось, что каждый из учеников был прав только в одном из двух своих утверждений. определите, кто из , в каком допустил ошибку.

коля - 1

сережа - 2

ваня - 4

толя - 5

надя - 3

// pascalabc.net 3.2, сборка 1457 от 29.05.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var x: =arrrandom(n,-50,50); write('x: '); x.println;   var y: =arrrandom(n,-50,50); write('y: '); y.println;   var z: =x.where(p-> not y.any(q-> p=;   write('z: '); z.println end. пример n= 17 x: -29 16 -20 -14 47 37 29 4 50 42 -30 38 -7 6 32 -11 -33 y: -26 32 24 18 -39 38 -18 -8 -42 -7 46 38 -4 -43 47 -27 -13 z: -29 16 -20 -14 37 29 4 50 42 -30 6 -11 -33

Var  a: array[1..10, 1..10] of real;   n, m, i, j, i1, j1, i2, j2: byte;   min, max: real; begin  writeln('введите кол-во строк и столбцов');   read(n, m); writeln;   for i : = 1 to n do  begin    writeln('введите ', m, ' эл. ', i, '-й строки матрицы');     for j : = 1 to m do read(a[i, j]) end;   writeln('ваша матрица: ');   for i : = 1 to n do  begin    for j : = 1 to m do write(a[i, j]: 7: 2);     writeln end;   for i : = 1 to n do  begin    min : = a[i, 1]; i1 : = i; j1 : = 1;     for j : = 1 to m do     if a[i, j] < min then begin        min : = a[i, j]; i1 : = i; j1 : = j      end;       if i = 1 then    begin   max : = min; i2 : = i1; j2 : = j1    end    else    if min > max then    begin      max : = min; i2 : = i1; j2 : = j1    end  end;   writeln('максимальным из минимумов строк является элемент ', max: 6: 2, ' с индексами [', i2, ',', j2, ']'); end.