Найти сумму чисел кратных 3 для ряда 1..n - 1 найти произведение чисел, оканчивающихся на 5 - 2

182

497

Посмотреть ответы 1

Ответы на вопрос:

martynov20031

Информатика

4,6(61 оценок)

Uses crt; var x: array[1..10,1..10] of integer; i,j,s,n: integer; begin randomize; write('размер матрицы: '); read(n); writeln('матрица: '); for i: =1 to n do begin for j: =1 to n do begin x[i,j]: =random(30)-10; write(x[i,j]: 5); end; writeln end; j: =n+1; for i: =1 to n do begin j: =j-1; s: =s+x[i,j]; end; writeln('сумма элементов побочной диагонали: ',s); end.