Дан двумерный массив размера n*n (вводится пользователем заполнить матрицу нулями и единицами так, чтобы получилась шахматная доска.

Const
  nn=50;
var
  i,j,n:integer;
  a:array[1..nn,1..nn] of integer;
begin
  Write('n='); Read(n);
  for i:=1 to n do begin
    for j:=1 to n do
      if (i+j) mod 2 =0 then Write('0') else Write('1');
    Writeln
    end
end.

Тестовое решение
n=8
01010101
10101010
01010101
10101010
01010101
10101010
01010101
10101010

Const n=5;
var A:array[1..n,1..n] of integer;
i,j:integer;

begin

for i:=1 to n do 
begin 
writeln; 
for j:=1 to n do    
begin 
if (odd(i) and odd(j)) or (not odd(i) and not odd(j)) then a[i,j]:=0
else a[i,j]:=1; 
write(a[i,j]:3);   
end; 
end;

end.

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.

Объяснение:

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.

1.

Цикл while имеет более широкое применение чем for

Шаг может быть отрицательным

2. for i in range(10,1,-2)

3. Здесь 2 правильных варианта, 1 и 2, так как второй имеет уточнение в виде фразы: "Введите 3 слова через пробел", то я бы отметил именно его.

4. Можно для всех трёх чисел

5. for a in range(1,5):

6. Не совсем понятно, что имеется ввиду под этой "результирующей строкой", если мы в нее хотим запихнуть сумму и произведение через пробел( res = s + res + pr), то выбираем 0 / 1 / " "

7. for i in range(0, 5):

8. Шаг, начальное значение, последнее значение