program z_array; uses crt; var a: array[1..100,1..100] of integer; m,n,i,j: byte; sum: integer; begin clrscr; writeln('введите количество строк матрицы'); readln(n); writeln('введите количество столбцов матрицы'); readln(m); writeln('введите элементы матрицы'); for i : = 1 to n dofor j : = 1 to m dobegin write('a[',i,',',j,'] = '); readln(a[i,j]); end; writeln('данная матрица'); writeln; sum : = 0; for i : = 1 to n dobeginfor j : = 1 to m dobegin write(a[i,j]: 5); if (j < i) then sum : = sum + a[i,j]; end; writeln; writeln('искомая сумма = ',sum); readln; end.
Поделитесь своими знаниями, ответьте на вопрос:
1фрагмент текста-это а)слово б) предложение в) непрерывная часть текста г) абзац 2 укажите «лишнее» а) вставка б) изменение начертания в) изменение цвета г) выравнивание
сначала определяем к-во символов в каждой строке
1-1 2-3 3-7 4-15 5-31 6-63 7-127
7-я строка имеет 127 символов и состоит из символа g к которому слева добавлено
две 6-х строки, определяем номера начала и конца каждой строки
6(1-63) 6(64-126) g(127)
видим что нужные символы во 2-й 6-й строке
6-я строка состоит из символа f к которому слева добавлено
две 5-х строки, определяем номера начала и конца каждой строки
5(64-94) 5(95-125) f(126)
нужные символы во 2-й 5-й строке
5-я строка состоит из символа e к которому слева добавлено
две 4-х строки, определяем номера начала и конца каждой строки
4(95-109) 4(110-124) e(125)
и вот мы наконец добрались до уже известной 4-й строки и знаем номера символов в ней,
aabaab c(116) a(117) a(118) b(119) a(120) a(121) b(122) c(123) d(124)
таким образом нужные символы caabaa
алгоритм решения такой разбиваем строки на подстроки и узнаем номера начала и конца каждой, пока не дойдем до уже известной строки