Сформировать массив по следующему правилу

@Gizard · Регистрация: 08.06.2014

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

Помогите кто может! Сформировать массив по следующему правилу:
1 2 3 4 5
2 1 2 3 4
3 2 1 2 3
4 3 2 1 2
5 4 3 2 1

@erl27 · 08.06.2014, 16:03

Pascal

var
  a: array[1..5, 1..5] of byte;
  
begin
  { Формируем массив: }
  for var i := 1 to 5 do
    for var j := 1 to 5 do
      if j < i then a[i, j] := i - j + 1
      else a[i, j] := j - i + 1;
  { Выводим массив: }
  for var i := 1 to 5 do begin
    for var j := 1 to 5 do
      write(a[i, j]:2);
    writeln
  end
end.

А это для размера массива n:

Pascal

var
  a: array[1..40, 1..40] of byte;
  n: byte;
  
begin
  repeat
    write('n = ');
    readln(n) //вводим размер массива
  until n < 41;
  var k := trunc(Log10(n)) + 2; //количество позиций для вывода чисел
  { Формируем массив: }
  for var i := 1 to n do
    for var j := 1 to n do
      if j < i then a[i, j] := i - j + 1
      else a[i, j] := j - i + 1;
  { Выводим массив: }
  for var i := 1 to n do begin
    for var j := 1 to n do
      write(a[i, j]:k);
    writeln
  end
end.

@Gizard 0 / 0 / 1 Регистрация: 08.06.2014 Сообщений: 8
		1
	Сформировать массив по следующему правилу 08.06.2014, 13:50. Показов 1550. Ответов 1 Метки нет (Все метки) Помогите кто может! Сформировать массив по следующему правилу: 1 2 3 4 5 2 1 2 3 4 3 2 1 2 3 4 3 2 1 2 5 4 3 2 1 0

	08.06.2014, 16:03

Сформировать массив по следующему правилу

Решение