При каком значении n произведение станет меньше 0,1.
нужно написать программу в паскале

279

302

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

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

toby000

Информатика

4,4(14 оценок)

Var i,j,s: integer; a: array[1..10,1..10]of integer; begin writeln('исходный массив: '); for i: =1 to 10 do begin for j: =1 to 10 do begin a[i,j]: =random(-10,10); if (a[i,j]=0) and (i=j) then s: =s+1; write(a[i,j]: 3) end; writeln end; writeln('число нулей на главной диагонали: ',s) end.