Заполнить двухмерный массив чисел единицами - Turbo Pascal

Формулировка задачи:

Заполнить двухмерный массив чисел единицами.

Код к задаче: «Заполнить двухмерный массив чисел единицами - Turbo Pascal»

textual
const
  n = 6;
  m = 7;
var
  z : 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
      z[i,j] := 1;
      write(z[i,j]:4)      
    end;
    writeln
  end;  
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 3.800 из 5


СДЕЛАЙТЕ РЕПОСТ