var aa:array[1..9,1..9]of integer;
i,j:integer;
begin
for i:=1 to 9 do
for j:=1 to 9 do
if i=1 then
aa[i,j]:=1;
aa[i,j]:=random(0);
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
write(aa[i,j]:3)
end;
writeln
end;
end.
Получается поменять только одну строку, при попытке ввести : if (i=1) and (i=3) then вообще ничего не меняет, кто подскажет ход решения? Пожалуйста.
P.S Пытаюсь учится заочно, если перед глазами есть конкретный пример то всё норм, если нет то....
Можно заменять на 1 нечётные строки. Odd(i) равна true при нечётном i.
program test;
const
N = 9;
type
TArray = array[1..N, 1..N] of integer;
var
i, j: integer;
A: TArray;
begin
{заполните массив нулями}
for i := 1 to N do
for j := 1 to N do
A[i, j] := 0;
{1,3,5,7,9 строку на единицы}
for i := 1 to N do
if odd(i) then
for j := 1 to N do
A[i, j] := 1;
{вывод результата}
for i := 1 to N do
begin
for j := 1 to N do
Write(A[i, j]: 2);
writeln;
end;
end.
program test;
const
N = 9;
type
TArray = array[1..N, 1..N] of integer;
var
i, j: integer;
A: TArray;
begin
{заполните массив нулями}
for i := 1 to N do
for j := 1 to N do
A[i, j] := 0;
{1,3,5,7,9 строку на единицы}
for i := 1 to N do
if odd(i) then
for j := 1 to N do
A[i, j] := 1;
{вывод результата}
for i := 1 to N do
begin
for j := 1 to N do
Write(A[i, j]: 2);
writeln;
end;
end.