Заполнять массив до тех пор пока не ввели k - Pascal ABC
Формулировка задачи:
Заполнять массив до тех пор пока не ввели k. После чего вывести элементы массива до введения k. Помогите пожалуйста!
Решение задачи: «Заполнять массив до тех пор пока не ввели k»
textual
Листинг программы
var
ar: Array[Byte] Of Integer;
i, n, k: Integer;
begin
Write('Input k='); ReadLn(k);
n := 0;
repeat
Write('Input number: '); ReadLn(ar[n]);
Inc(n);
until (ar[n - 1] = k);
Write('Array:');
for i := 0 to n - 2 do
Write(' ', ar[i]);
WriteLn;
end.
Объяснение кода листинга программы
- В начале объявляются переменные: ar - массив целых чисел типа Array[Byte] Of Integer; i, n, k - целые числа.
- Затем идет блок WriteRead, который используется для ввода значения k и переменной n.
- После этого начинается цикл repeat, который выполняется до тех пор, пока значение элемента ar[n-1] не станет равным k.
- Внутри цикла пользователю предлагается ввести число. Это число записывается в элемент массива ar[n].
- После окончания цикла переменная n увеличивается на 1.
- После завершения цикла выводится сообщение 'Array:', и для каждого элемента массива от 0 до n-2 выводится пробел, а затем значение этого элемента.
- Наконец, выводится символ новой строки WriteLn.