1) Заполнить массив по следующему принципу: 1 1 1 1 10 1 1 1 10 0 1 1 10 0 0 1 10 0 0 ...
1) Заполнить массив по
следующему принципу:
1 1 1 1 10
1 1 1 10 0
1 1 10 0 0
1 10 0 0 0
10 0 0 0 0
2) Заполнить массив по
следующему принципу:
21 22 23 24 25
16 17 18 19 20
11 12 13 14 15
6 7 8 9 10
1 2 3 4 5
Гость
Ответ(ы) на вопрос:
Гостьprogram Z_3;
uses crt;
const n=5;
var i,j,s,d:byte;a:array[1..5,1..5]of byte;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
if (i=1+s)and(j=n-s) then begin d:=1; a[i,j]:=10;end;
if d=0 then a[i,j]:=1
else if (i=1+s)and(j=n-s)
then a[i,j]:=10;
write(' ',a[i,j],' ');
end;
writelns:=s+1;d:=0;
end;
end.
program Z_4;
uses crt;
const n=5;
var i,j,m:byte;a:array[1..5,1..5]of byte;
begin
m:=1;j:=n;
for j:=n downto 1 do
for i:=1 to n do
begin a[j,i]:=m; m:=m+1; end;
end;
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]<10
then write(' 0',a[i,j],' ')
else write(' ',a[i,j],' ');
writeln;
end;
end.
Не нашли ответ?
Похожие вопросы