Задание:
ПАСКАЛЬ 1) В двумерном массиве 4 на 3 заменить все нулевые элементы на первый элемент матрицы. 2) Заменить все элементы главной диагоналина максимальный элемент той же строки
Решение:
var a: array[1… 20,1… 20]of integer; i,j: integer; beginfor i: =1 to 4 dofor j: =1 to 3 doreadln (a[i,j]); for i: =1 to 4 dofor j: =1 to 3 doif a[i,j]=0 then a[i,j]: =a[1,1]; for i: =1 to 4 do beginfor j: =1 to 3 dowrite (a[i,j],'); writeln; end; end.
Знаете другой ответ?