Запустите программу в среде программирования Pascal. Модифицируйте программу так, чтобы в начале её работы пользователю задавался вопрос о количестве символов, которые он будет вводить. Какой цикл при этом лучше использовать? Как изменить программу, чтобы она выводила на экран в обратном порядке элементы целочисленного массива?
Исходная программа читает символы до точки. Счётчик i увеличивается перед каждым вводом, поэтому точка тоже попадает в массив. Затем n:=i- исключает точку, а цикл for i:=n downto печатает остальные символы от последнего к первому. Например, ввод кот. даст вывод ток.
Если число вводимых символов известно заранее, удобнее цикл for: он выполнится ровно
var simbol: array [ .. ] of char;
i, n: integer;
begin
write('Сколько символов (от до )? ');
readln(n);
if (n >= ) and (n <= ) then
begin
writeln('Введите символы по одному:');
for i := to n do readln(simbol[i]);
for i := n downto do write(simbol[i]);
writeln
end
else writeln('Недопустимое количество')
end.
Первый цикл заполняет элементы с индексами от
Для целочисленного массива меняем тип элемента на integer и выводим числа с разделителем, чтобы соседние элементы не слились:
var a: array [ .. ] of integer;
i, n: integer;
begin
readln(n);
if (n >= ) and (n <= ) then
begin
for i := to n do readln(a[i]);
for i := n downto do write(a[i], ' ')
end
else writeln('Недопустимое количество')
end.
Например, для .
При известном количестве элементов удобен цикл for; для обратного вывода используют for i:=n downto . Для целых чисел массив объявляют array [.
