Вдвоичной матрице размером 10x10 найдите строки

Язык не задан, поэтому я напишу только алгоритм. 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.

pascalABC

Объяснение:

var x, y: real;

begin

 Write('Введите значение аргумента x = '); ReadLn(x);

 if x < 1 then y := exp(1) / tan(2.9 + 3 * x)

 else if x > 6 then y := sin(3 * x) + ln(x + 0.3)/ln(10)

 else if (x >= 2) and (x <= 4) then y := 0.6 * ln(abs(5 - sqr(x)))

 else begin WriteLn('Аргумент вне диапазона!'); exit; end;

 WriteLn('y(', x, ') = ', y:1:3);

end.