• Вопрос по информатике:

    Дана последовательность чисел, среди которых имеется один нуль. Выведите на печать все числа до нуля включительно.

    • Автор:

      backbone
  • Мне программа паскаля пишет, что всё верно, но когда я ввожу числа, ничего не происходит. Так и надо? В чём смысл-то?

    • Отвечал:

      guzmánqmce
    • 0

    var

     arr: array [1..100]of integer;

     i, size: integer;

    begin

     writeln('Введите размерность последовательности:  ');

     readln(size);

     for i := 1 to size do

       readln(arr[i]);

     i := 1;

     repeat

       writeln(arr[i], '  ');

       inc(i);

     until arr[i] = 0;

     writeln(0);

    end.

    • Отвечал:

      facundodrq0
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска