Question

СОСТАВЬТЕ ПРОГРАММУ ЗАПОЛНЕНИЯ МАССИВА В ПАСКАЛЬ ПО СЛЕДУЮЩЕМУ ПРИНЦИПУ:

0 1 1 1 0
1 0 1 0 1
1 1 0 1 1
1 0 1 0 1
0 1 1 1 0

Answer 1

Ответ:

program z;

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 (i=j) or (i+j=5+1) then a[i,j]:= 0 else a[i,j]:= 1;

write(a[i,j]:2)

end;

writeln

end

end.