Ввести матрицу. найти сумму четных элементов матрицы. если она отрицательна, то заменить элементы четных столбцов матрицы на 1, в ином случае нечетных столбцов на -1. матрицу распечатать

172

298

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

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

ниро4

Информатика

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

Не самое лучшее решение, но вот: const n = 2; k = 2; var i,j,s: integer; a: array[1..n,1..k] of integer; begin s: =0; for i: =1 to n do for j: =1 to k do begin writeln('введите a[',i,',',j,']: '); readln(a[i,j]); if a[i,j] mod 2=0 then s: =s+a[i,j]; end; if s< 0 then for i: =1 to n do for j: =1 to k do if j mod 2=0 then a[i,j]: =1; if s> =0 then for i: =1 to n do for j: =1 to k do if j mod 2=0 then a[i,j]: =-1; for i: =1 to n do begin for j: =1 to k do write('a[': 4,i,',',j,']=',a[i,j]); writeln; end; end.