Ответы и объяснения

2013-06-23T09:35:42+00:00

var

  a:array [1..5,1..5] of integer;

  i,j:integer;

begin

  for i:=1 to 5 do begin

   for j:=1 to 5 do begin

    if ((j>=i) and (i+j<=6)) or ((j<=i) and (i+j>=6)) then a[i,j]:=1 else a[i,j]:=0;

    write (a[i,j]:3); 

   end;

   writeln;

  end;

  readln;

end.

2013-06-23T10:56:13+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Можно обойтись без массива и этим сэкономить память компьютера.

Можно также вывести такую матрицу (в виде песочных часов) любого размера. Для этого нужно только изменить значение n в строке

const n=5

 

Program Pentelemon;
uses crt;
const n=5;
var
 i,j:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if ((j>=i) and (i+j<=n+1)) or ((j<=i) and (i+j>=n+1)) then
              write ('1 ')
            else
              write ('0 ');
        end;
      writeln();
    end;
end.