Создать массив размерностью n*n элементов и заполнить его по образцу, например для матрицы 6*6: 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
Создать массив размерностью n*n элементов и заполнить его по образцу, например для матрицы 6*6: 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
Решить PascalABC
Оформить в виде процедуры.
Гость
Ответ(ы) на вопрос:
Гость //Pascal ABC.NET 3.1 сборка 1219 Const n=6; Type ty=array[1..n,1..n] of integer; procedure inic(var ar:ty); Var i,j,k:integer; begin k:=0; for i:=1 to n do begin for j:=1 to n do ar[i,j]:=0; if not(odd(i)) then begin k:=k+2; ar[i,k]:=1; end; end; end;
Не нашли ответ?
Похожие вопросы