Дана последовательность чисел, среди которых имеется один нуль. ...
Дана последовательность чисел, среди которых имеется один нуль. Выведите на печать все числа до нуля включительно.
Есть ответ
12.12.2022
189
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022