Заполнить матрицу по правилу

@_lol_ · Регистрация: 03.09.2012

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

как заполнить массив таким образом

@ermolay · 05.12.2012, 10:06

_lol_, если конкретно с такими размерами массива, то как то так:

Pascal

const
  n=4;
  m=7;
var
  a: array[1..n,1..m] of byte;
  i,j,k: byte;
begin
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if (i+j) mod 2=0 then
      begin
        inc(k);
        a[i,j]:=k;
      end;
      write(a[i,j]:4);
    end;
    writeln;
  end;
end.

можно организовать ввод размеров массива, и т.д.

@_lol_ · 05.12.2012, 18:34 **[ТС]**

спасибо)

@_lol_ 0 / 0 / 1 Регистрация: 03.09.2012 Сообщений: 20
		1
	Заполнить матрицу по правилу 05.12.2012, 00:38. Показов 996. Ответов 2 Метки нет (Все метки) как заполнить массив таким образом Изображения 0

@_lol_ 0 / 0 / 1 Регистрация: 03.09.2012 Сообщений: 20
	05.12.2012, 18:34 [ТС]	3
	спасибо) 0

Опции темы

Заполнить матрицу по правилу

Решение