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

839010 839010    2   16.06.2019 01:55    3

Ответы
lerapro123 lerapro123  12.07.2020 23:56

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика