Увеличить каждый элемент массива на 1 и вывести на экран - Pascal ABC
Формулировка задачи:
Заполнить массив из 10 элементов случайными числами из интервала от -10 до 10, вывести на экран, затем увеличить каждый элемент массива на 1 и повторно вывести на экран.
Решение задачи: «Увеличить каждый элемент массива на 1 и вывести на экран»
textual
Листинг программы
randomize; for i:=1 to 10 do begin a[i]:=-10+random(21); write(a[i]:4); end; writeln; for i:=1 to 10 do begin a[i]:=a[i]+1; write(a[i]:4); end;
Объяснение кода листинга программы
- Строка
randomize;
используется для инициализации генератора случайных чисел. - В цикле
for i:=1 to 10 do
мы используем переменнуюi
для перебора чисел от 1 до 10. - В каждой итерации цикла мы используем переменную
a[i]
для обращения к элементу массива с индексомi
. - Значение
a[i]
устанавливается равным-10+random(21)
, что генерирует случайное число от -10 до 20. - Затем мы выводим значение
a[i]
с помощью функцииwrite(a[i]:4)
, где:4
указывает, что число должно быть записано в формате с четырьмя знаками после запятой. - После этого мы используем цикл
for i:=1 to 10 do
снова, на этот раз для изменения значения каждого элемента массива. - В каждой итерации мы используем оператор
a[i]:=a[i]+1
, чтобы увеличить значение элемента массива на 1. - Затем мы используем функцию
write(a[i]:4)
, чтобы вывести обновленное значение элемента массива. - Цикл
for i:=1 to 10 do
выполняется 10 раз, перебирая числа от 1 до 10. - Вывод на экран завершается строкой
writeln;
.