Игра
крокодил гена с чебурашкой играли в какую-то игру, выписывая числа в клетки квадратной таблицы . однако, когда таблица была заполнена целиком, выяснилось, что правила игры они забыли. тогда чебурашка предложил подсчитать числа на главной диагонали квадрата и на побочной диагонали, и если на главной диагонали сумма чисел больше, чем на побочной, то выигрывает гена, если меньше, то чебурашка, а если суммы равны, то объявляется ничья.
таблица была большая и чебурашка с геной боятся ошибиться при подсчете. им определить, чем закончилась игра.
входные данные
в первой строке дано одно целое число n — размер таблицы дальше идут n строк по n неотрицательных чисел в каждой — заполненная после окончания игры таблица. все числа не превышают 100.
выходные данные
выведите 1, если выиграл крокодил гена, 2, если выиграл чебурашка, и 0, если была ничья.
примеры
ввод
3
1 2 3
4 5 6
7 8 0
вывод
2
123
185
Ответы на вопрос:
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
Популярно: Информатика
-
kek2282127.05.2022 08:51
-
obzoredy15.04.2020 01:27
-
юрпа07.08.2021 01:22
-
iyliaz4ay14.08.2021 07:13
-
syr0005.01.2023 18:53
-
tania13003.04.2020 19:43
-
nastyakot260917.04.2020 05:22
-
ksarbinaz19.04.2023 00:04
-
irhev73fa12.04.2023 18:40
-
12345778999987609.07.2021 05:41