Варианты в листах 1 и 2
Можно подобрать, изменив тип диаграммы другой вид.
Какое задание? пару ответов есть
Const nx = 20;mx = 20; var A:Array[1..nx,1..nx] of real; i,j,n,m:integer; sum:real; begin write('Введите размер матрицы'); Read(n); for i:=1 to n do begin for j:=1 to n do begin A[i,j]:= random()*100 -50; write(A[i,j]:9:4); end; writeln; end; writeln; writeln;
for i:=1 to n do begin for j:=1 to n do beginif i < j then begin write(A[i,j]:9:4); sum:=sum + A[i,j]; end else write(' ':9); end; writeln; end; write('Сумма = ',sum);<span> end.</span>
Приоритет операций div и mod одинаков, поэтому сначала будет найдена целая часть от деления 33 на 2, равная 16. Затем будет найден остаток от целочисленного деления 16 на 5, равный 1.
Ответ: 1