Помогите решить задачу по информатике! Очень надо

Помогите решить задачу по информатике! Очень надо
Гость
Ответ(ы) на вопрос:
Гость
const n=8; m=6; var a:array[1..n,1..m] of integer; i,j:integer; begin for i:=1 to n do  begin  for j:=1 to m do   begin   a[i,j]:=j;   write(a[i,j]:3);   end;  writeln;  end; end. Результат:   1  2  3  4  5  6   1  2  3  4  5  6   1  2  3  4  5  6   1  2  3  4  5  6   1  2  3  4  5  6   1  2  3  4  5  6   1  2  3  4  5  6   1  2  3  4  5  6
Не нашли ответ?
Ответить на вопрос
Похожие вопросы