Дана матрица 8 на 5, заполненная случайными числами от 0 до 10.нужно вывести на экран исходную матрицу и матрицу, в которой к третьему столбцу добавлен шестой.

264

344

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

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

VanoK48

Информатика

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

Var i,j,k: integer; a: array[1..5,1..8]of integer; begin writeln('исходная матрица: '); for i: =1 to 5 do begin for j: =1 to 8 do begin a[i,j]: =random(11); write(a[i,j]: 3); end; writeln; end; writeln('преобразованная матрица: '); for i: =1 to 5 do begin for j: =1 to 8 do begin if j=3 then a[i,3]: =a[i,3]+a[i,6]; write(a[i,j]: 3); end; writeln; end; end.