Задание 5 Урок 15

Primary tabs

Submitted by Dobrii_kot on Thu, 12/17/2020 - 19:13

Forums:

Задание 5 Урок 15

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).

var negative_array: array[1..3] of integer;
  counter_array,user_number: integer;
begin
  counter_array := 0;
  repeat
    write('Введите целое число');
    readln(user_number);
    if (user_number < 0) and ((user_number mod 2) <> 0) then
      begin
        counter_array += 1;
        negative_array[counter_array] := user_number;
      end;
  until(counter_array >= 3);
  for counter_array := 1 to 3 do
    write(negative_array[counter_array], ' ');
  readln();
end.
  • Log in to post comments
  • 1702 reads
vedro-compota's picture

vedro-compota

Thu, 12/17/2020 - 19:54

не то решение

_____________
матфак вгу и остальная классика =)

Dobrii_kot

Sun, 12/20/2020 - 14:17

Исправлено

type arr = array[1..17] of integer;
var first_array : arr;
  i,counter_hyphenation,line_break : integer;
begin
  counter_hyphenation := 0;
  line_break := 1;
  for i := low(first_array) to high(first_array) do
    begin
      first_array[i] := i;
      write(first_array[i],' ');
      counter_hyphenation += 1;
      if (counter_hyphenation = line_break) then
        begin
          writeln();
          line_break += 1;
          counter_hyphenation := 0;
        end;
    end;
  readln();
end.

консоль:

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17
vedro-compota's picture

vedro-compota

Sun, 12/20/2020 - 16:41

решение засчитано

_____________
матфак вгу и остальная классика =)