Урок 15 Задача 6
Primary tabs
У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
var m : array [1..17] of integer; a, i, j : integer; begin j:=1; // ограничитель количества чисел в строке, начинаем с 1 for a:=low(m) to high(m) do begin write(a, ' '); // выводим эл-ты массива в строку через пробел i:=i+1; // с каждым выводом увеличиваем счетчик чисел в строке на 1 if (i=j) then // когда счетчик чисел в строке сравняется с ограничителем, begin writeln (); // происходит переход на новую строку j:=j+1; // ограничитель чисел в строке увеличиваем на 1 i:=0; // сбрасываем счетчик чисел в строке end; end; readln(); end.
Вывод в консоли:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
- Log in to post comments
- 217 reads