Подсчитать сумму положительных элементов массива,кратных 3 - Pascal ABC
Формулировка задачи:
Задан массив из 12 целых чисел.Подсчитать сумму положительных элементов массива,кратных 3.
Решение задачи: «Подсчитать сумму положительных элементов массива,кратных 3»
textual
Листинг программы
const N=12; var a:array[1..N] of integer; i,b:integer; begin b:=0; //заполнение массива for i:=1 to N do begin writeln('введите ',i,'-ый элемент'); readln(a[i]); end; //обработка массива for i:=1 to N do if (a[i]>=0) and (a[i] mod 3 = 0) then b:=b+a[i]; writeln('ответ - ',b); end.
Объяснение кода листинга программы
- const N=12; - объявляется константа N равная 12, будет использоваться для определения размера массива
- var a:array[1..N] of integer; i,b:integer; - объявляются переменные a, i, b типа integer и массив a размером N
- b:=0; - инициализируется переменная b значением 0
- //заполнение массива for i:=1 to N do begin writeln('введите ',i,'-ый элемент'); readln(a[i]); end; - цикл for заполняет массив a значениями, введенными пользователем
- //обработка массива for i:=1 to N do if (a[i]>=0) and (a[i] mod 3 = 0) then b:=b+a[i]; - цикл for обрабатывает массив a
- writeln('ответ - ',b); - выводится ответ
- end.; - закрывается блок кода
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д