написать программу выводящею матрицу 11111
01110
00100
01110
11111
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
