ПАСКАЛЬ 1)В двумерном массиве 4 ** 3 заменить все нулевые элементы ** первый элемент...

Question

ПАСКАЛЬ

1)В двумерном массиве 4 на 3 заменить все нулевые элементы на первый элемент матрицы .

2) Заменить все элементы главной диагонали на максимальный элемент той же строки

Answer 1

var a:array[1..20,1..20]of integer;
i,j:integer;
begin
for i:=1 to 4 do
for j:=1 to 3 do
readln(a[i,j]);
for i:=1 to 4 do
for j:=1 to 3 do
if a[i,j]=0 then a[i,j]:=a[1,1];
for i:=1 to 4 do begin
for j:=1 to 3 do
write(a[i,j],' ');
writeln;end;
end.