Создать одномерный массив м из 15 целых чисел (числа вводит пользователь вывести на экран массив в виде строки чисел.

Program program1; var array_m: array [1..15] of integer; i: integer; begin for i : = 1 to 15 do begin write('введите значение ', i, ' элемента массива: '); readln(array_m[i]); end; for i : = 1 to 15 do write(array_m[i], ' '); end.

1) const   n = 5; //размерность массива var   m: array[1..n] of integer; begin   var pr : = 1;   for var i : = 1 to n do   begin       read(m[i]);       if m[i] < > 0 then pr : = pr * m[i];   end;   writeln(pr); end. пример: входные данные: 1 2 3 0 5 выходные данные: 30 2) const   n = 3; //размерность матрицы var   m: array[1..n, 1..n] of integer;   i, j: integer;   rec: record       mmax: integer = -(maxint);       ind: record           i: integer;           j: integer;       end;   end; begin   for i : = 1 to n do       for j : = 1 to n do       begin           read(m[i, j]);           if abs(m[i, j]) > rec.mmax then begin               rec.mmax : = abs(m[i, j]);               rec.ind.i : = i;               rec.ind.j : = j;           end;       end;   writeln('максимальный по модулю элемент матрицы ', rec.mmax, '(', rec.ind.i, '; ', rec.ind.j, ')'); end. пример: входные данные: 1 2 3 4 5 -9 7 8 6 выходные данные: максимальный по модулю элемент матрицы 9(2; 3)

Петя не может быть правым в обоих случаях так как получиться что и петя и женя написали на 5, а тк не может быть по условию. дальше подбираем под петю два оставшихся случая, при том что петя сказал 2 раза правду, но этого не может быть т.к. тогда женя говорит либо 2 неправды либо 50на50, говоря две неправды он противоречит пете о том что он не писал на 5 а говоря правду неправду противоречит и пете и саше. значит петя определенно сказал правду неправду, тогда подставив жене неправду а саше правду получаем что на 5 написал петя.