Обработка элементов массива - Pascal ABC
Формулировка задачи:
Ввести одномерный массив из элементов. Каждый четный элемент в массиве заменить результатом его целочисленного деления на 5. Массив вывести до и после преобразования.
Решение задачи: «Обработка элементов массива»
textual
Листинг программы
var a:array[1..100] of integer; i, n: integer; begin read(n); for i := 1 to n do begin write('a[', i, '] = '); read(a[i]); end; for i := 1 to n do begin write(a[i], ' '); if a[i] mod 2 = 0 then a[i] := a[i] div 5; end; writeln; for i := 1 to n do write(a[i], ' '); end.
Объяснение кода листинга программы
- Введен массив a типа integer размером 100
- Введены две переменные i и n типа integer
- Введена последовательность чтения чисел n в цикле от 1 до n
- В каждой итерации цикла выводится номер элемента массива a и затем считывается его значение
- После завершения цикла считывания значений массива a, начинается цикл обработки элементов массива a
- В каждой итерации цикла выводится значение элемента массива a
- Если значение элемента массива a делится на 2 без остатка, то оно делится на 5 и записывается обратно в массив a
- После завершения цикла обработки элементов массива a, выводится символ новой строки
- В конце программы выводится содержимое массива a
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д