давно
Старший Модератор
31795
6196
29.05.2008, 10:52
общий
это ответ
Здравствуйте, Корнилов Евгений Петрович !
Первая задача в приложении.
Использовано свойство логигеского типа как перечисляемого.
true:=1, fasle:=0.
Удачи!
Приложение:
const n=6;var a:array[1..n,1..n]of integer; b,c:integer;begin {формируем массив} for b:=1 to n do begin for c:=1 to n do a[b,c]:=ord(abs(b-c)<=1); inc(a[b,b]); end; {выводим его} for b:=1 to n do begin for c:=1 to n do write(a[b,c]:2); writeln; end;end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.