Дана последовательность чисел, среди которых имеется один нуль. Выведите на печать все числа до нуля включительно.
Ответы
Ответ дал:
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.
Ответ дал:
0
Мне программа паскаля пишет, что всё верно, но когда я ввожу числа, ничего не происходит. Так и надо? В чём смысл-то?
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад