Дана матрица а(5,5). 1. найти сумму s отрицательных элементов расположенных на побочной диагонали. 2. найти наибольший элемент 2-го столбца. 3. заменить найденные максимальный элемент во 2-м столбце на значение суммы s

151

422

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

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

pro100Abyroi

Информатика

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

const n=5; var a: array [1..n,1..n] of integer; i,max,ind,s,j: integer; begin s: =0; randomize; for i: =1 to n do for j: =1 to n do a[i,j]: =random(100)-50; for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 4); writeln; end; j: =6; for i: =1 to n do begin dec(j); if a[i,j]< 0 then s: =s+a[i,j]; end; max: =a[1,2]; ind: =1; for i: =1 to n do if abs(a[i,2])> abs(max) then begin max: =a[i,2]; ind: =i; end; a[ind,2]: =s; writeln; writeln; writeln('a)summ: ',s); writeln('b)max: ',max); writeln; writeln('c)'); for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 4); writeln; end; readln; end.

SofiaLimon

Информатика

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

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin (seqgen(readinteger,i-> 1/(10*(i+1)++1).println end. пример 10 1.26596470171236