Question

Составить программу, которая булет заполнять матрицу единицами, а элементы которые будут находиться по периметру должны быть нулями(Паскаль)

Answer 1

Ответ:

• begin
• var m:=ReadInteger('m:');
• var n:=ReadInteger('n:');
• MatrGen(m,n,(i,j)->(i=0)or(j=0)or(i=m-1)or(j=n-1)?0:1).Print
• end.

Пример работы: