Що буде результатом виконання доноi програми при натыснутiй сто iлцi вправо на клавiатурi?

299

484

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

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

Анастасия0561

Информатика

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

Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! begin var m: =readinteger('количество строк/столбцов в матрице: '); writeln('*** исходная матрица ***'); var b: =matrrandom(m,m,-99,99); b.println(4); writeln(4*m*'-'); var (s,s1): =(sqr(b[0,0]),0); for var i: =0 to m-1 do for var j: =0 to m-1 do if i+j< > 0 then s1+=b[i,j]; s-=sqr(s1); writeln('результат: ',s) end. пример количество строк/столбцов в матрице: 5 *** исходная матрица *** 48 -33 4 -66 28 91 -46 58 11 92 37 -42 8 -12 39 25 65 91 -30 83 -31 -53 36 28 49 результат: -184320