СОСТАВЬТЕ ПРОГРАММУ ЗАПОЛНЕНИЯ МАССИВА В ПАСКАЛЬ ПО СЛЕДУЮЩЕМУ ПРИНЦИПУ:
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
Ответы
Ответ дал:
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.
Похожие вопросы
1 год назад
2 года назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад