Есть ответ 👍

Игра
крокодил гена с чебурашкой играли в какую-то игру, выписывая числа в клетки квадратной таблицы . однако, когда таблица была заполнена целиком, выяснилось, что правила игры они забыли. тогда чебурашка предложил подсчитать числа на главной диагонали квадрата и на побочной диагонали, и если на главной диагонали сумма чисел больше, чем на побочной, то выигрывает гена, если меньше, то чебурашка, а если суммы равны, то объявляется ничья.

таблица была большая и чебурашка с геной боятся ошибиться при подсчете. им определить, чем закончилась игра.

входные данные
в первой строке дано одно целое число n — размер таблицы дальше идут n строк по n неотрицательных чисел в каждой — заполненная после окончания игры таблица. все числа не превышают 100.

выходные данные
выведите 1, если выиграл крокодил гена, 2, если выиграл чебурашка, и 0, если была ничья.

примеры
ввод
3
1 2 3
4 5 6
7 8 0
вывод
2

123
185
Посмотреть ответы 2

Ответы на вопрос:


ответ:

ввод и ответ это просто


Const     n = 10; var     a: array[1..n] of integer;     i,j,m,b,c,p,s: integer; begin randomize; {заполнение и вывод} write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(n);       write(' ',a[i]);       end; writeln; {сортировка} p: =0; for i: = 1 to n do       begin       m: =i;       for j: = i+1 to n do               if a[j]< a[m] then m: =j;       if m< > i then             begin             b: =a[m];             a[m]: =a[i];             a[i]: =b;             p: =p+1;             {вывод каждого шага сортировки}             write('перестановка №',p,': ');             for j: = 1 to n do                     write(' ',a[j]);             writeln;             end;       end; writeln; write('отсортированный массив: '); for i: = 1 to n do       write(' ',a[i]); {бинарный поиск} writeln; write('введите число: '); readln(c); m: =n div 2; i: =1; j: =n; s: =0; while (a[m]< > c)and(i< =j) do     begin     if c > a[m] then i: =m+1     else j: =m-1;     s: =s+1;     m: =(i+j) div 2;     end; writeln; if a[m]=c then writeln('в массиве есть данное число') else writeln('в массиве нет данного числа'); writeln('кол-во перестановок за сортировку: ',p); writeln('кол-во сравнений за поиск: ',s); end. примеры: исходный массив: 0 4 5 4 1 2 6 7 0 7 перестановка №1: 0 0 5 4 1 2 6 7 4 7 перестановка №2: 0 0 1 4 5 2 6 7 4 7 перестановка №3: 0 0 1 2 5 4 6 7 4 7 перестановка №4: 0 0 1 2 4 5 6 7 4 7 перестановка №5: 0 0 1 2 4 4 6 7 5 7 перестановка №6: 0 0 1 2 4 4 5 7 6 7 перестановка №7: 0 0 1 2 4 4 5 6 7 7 отсортированный массив: 0 0 1 2 4 4 5 6 7 7 введите число: 3 в массиве нет данного числа кол-во перестановок за сортировку: 7 кол-во сравнений за поиск: 4 исходный массив: 4 4 1 3 4 4 5 0 7 2 перестановка №1: 0 4 1 3 4 4 5 4 7 2 перестановка №2: 0 1 4 3 4 4 5 4 7 2 перестановка №3: 0 1 2 3 4 4 5 4 7 4 перестановка №4: 0 1 2 3 4 4 4 5 7 4 перестановка №5: 0 1 2 3 4 4 4 4 7 5 перестановка №6: 0 1 2 3 4 4 4 4 5 7 отсортированный массив: 0 1 2 3 4 4 4 4 5 7 введите число: 5 в массиве есть данное число кол-во перестановок за сортировку: 6 кол-во сравнений за поиск: 2

Популярно: Информатика