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.
Ответ дал: Гость
если прямые не пересекаются, то они или скрещиваются или паралельные
неверно, что на ноль делить нельзя, делить можно, только результатом будет или бесконечность или неопределенность
неверно, что две неодинаковые прямые могут иметь две общие точки
неверно, что ответ может быть правильным или неправильным. в любом ответе есть доля истины и доля лжи
Популярные вопросы