"Раскрасить" двумерный массив зеброй

@dumb_girl · Регистрация: 16.12.2017

Author24 — интернет-сервис помощи студентам

Здравствуйте, это опять я. Не могу понять как заменить в двумерном массиве несколько строк одновременно.

Pascal

 var
   mmas : array[1..10,1..10] of integer;
   i,j,x,y : integer;
   begin
   for i := 1 to 10 do
   for j := 1 to 10 do
   if i=1 then 
   mmas[i,j] := 1
     else  
     mmas[i,j] := 0;
     for i := 1 to 10 do
     begin
     for j := 1 to 10 do
     begin
     write(mmas[i,j] : 4);
     end;
      writeln;
       end;
      end.

Вот код программы, когда я хочу заполнить 3-ю,5-ю и т.д строки единицами, то ничего не получается. Где может быть ошибка?

@Puporev · 23.02.2018, 09:00

Pascal

for i := 1 to 10 do
    begin
     for j := 1 to 10 do
      begin
       if odd(i) then  mmas[i,j] := 1
       else  mmas[i,j] := 0;
       write(mmas[i,j] : 2);
      end;
     writeln;
    end;

@dumb_girl · 23.02.2018, 09:30 **[ТС]**

спасибо, но это не то, мне нужно заполнить определенные строки : 1, 3,5,7,9

@Puporev · 23.02.2018, 09:40

А здесь какие заполняются? odd(i) это строки 1,3,5,7,9.

Может Вам не строки, а столбцы нужно?

Тогда так

Pascal

1 2	if odd(j) then mmas[i,j] := 1 else mmas[i,j] := 0;

@dumb_girl · 23.02.2018, 09:45 **[ТС]**

извините, я не заметила, спасибо большое!

@dumb_girl 1 / 1 / 0 Регистрация: 16.12.2017 Сообщений: 22
	23.02.2018, 09:30 [ТС]	3
	спасибо, но это не то, мне нужно заполнить определенные строки : 1, 3,5,7,9 0

@dumb_girl 1 / 1 / 0 Регистрация: 16.12.2017 Сообщений: 22
	23.02.2018, 09:45 [ТС]	5
	извините, я не заметила, спасибо большое! 0

"Раскрасить" двумерный массив зеброй

Решение