Язык не задан, поэтому я напишу только алгоритм. 1) Вводим массив A(10, 10) 2) Открываем пустой массив из одной строки B(10) 3) flag = 0 4) Цикл по i от 1 до 9 4.1) Цикл по k от 1 до 10 (по столбцам) 4.1.1) Копируем i-ую строку из массива А в массив В 4.2) Конец цикла по k 4.3) Цикл по j от i + 1 до 10 (по строкам) 4.3.1) Цикл по k от 1 до 10 (по столбцам) 4.3.1.1) Сравниваем j-ую строку массива А и массив В 4.3.2) Конец цикла по k 4.3.3) Если строки равны, то выводим их на экран. 4.4) Конец цикла по j 5) Конец цикла по i 6) Конец Коротко говоря, алгоритм такой. Сравниваем 1 строку со всеми от 2 до 10. Если строки совпали - выводим их на экран. Можно вывести только номера, можно сами строки. Переходим ко 2 строке. Ее сравниваем от 3 до 10. И так далее. Последнюю 9 строку сравниваем только с 10.
DIM m AS INTEGER, n AS INTEGER CLS INPUT "M,N = ", m, n REDIM a(1 TO m, 1 TO n) AS INTEGER RANDOMIZE TIMER FOR i = 1 TO m FOR j = 1 TO n a(i, j) = 100 * RND - 50 PRINT USING ""; a(i, j); NEXT j PRINT NEXT i min = 1000: max = -1000 FOR i = 1 TO m FOR j = 1 TO n IF a(i, j) > max THEN max = a(i, j) jmax = j END IF IF a(i, j) < min THEN min = a(i, j) jmin = j END IF NEXT j NEXT i DIM p AS DOUBLE p = 1 FOR i = 1 TO m p = p * a(i, jmax) * a(i, jmin) NEXT i PRINT "P="; p
1) Вводим массив A(10, 10)
2) Открываем пустой массив из одной строки B(10)
3) flag = 0
4) Цикл по i от 1 до 9
4.1) Цикл по k от 1 до 10 (по столбцам)
4.1.1) Копируем i-ую строку из массива А в массив В
4.2) Конец цикла по k
4.3) Цикл по j от i + 1 до 10 (по строкам)
4.3.1) Цикл по k от 1 до 10 (по столбцам)
4.3.1.1) Сравниваем j-ую строку массива А и массив В
4.3.2) Конец цикла по k
4.3.3) Если строки равны, то выводим их на экран.
4.4) Конец цикла по j
5) Конец цикла по i
6) Конец
Коротко говоря, алгоритм такой.
Сравниваем 1 строку со всеми от 2 до 10. Если строки совпали - выводим их на экран. Можно вывести только номера, можно сами строки.
Переходим ко 2 строке. Ее сравниваем от 3 до 10. И так далее.
Последнюю 9 строку сравниваем только с 10.