Язык не задан, поэтому я напишу только алгоритм. 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.
1. "Школьное" решение // PascalABC.Net 3.0, сборка 1064 var i,n1,n2:integer; s:longint; begin Write('Введите интервал для вычисления суммы: '); Read(n1,n2); s:=0; if n1 mod 2 = 0 then i:=n1 else i:=n1+1; while i<=n2 do begin s:=s+i; i:=i+2 end; Writeln('Сумма четных чисел в интервале равна ',s) end.
Тестовое решение: Введите интервал для вычисления суммы: 7 14 Сумма четных чисел в интервале равна 44
2. Современное решение // PascalABC.Net 3.0, сборка 1064 var n1,n2:integer; begin Write('Введите интервал для вычисления суммы: '); Read(n1,n2); if Odd(n1) then Inc(n1); Writeln('Сумма четных чисел в интервале равна ',Range(n1,n2,2).Sum); end.
1) после выполнения фрагмента программы s будет равно 1
2) необходимо изменить так:
s:=0;
for j:=0 to 9 do
if A[j] > 8 then
s:=j;