Нахождение суммы элементов одномерного массива по условию
Задача 1. Дан массив, состоящий из 10 целых чисел. Найти сумму элементов, кратных заданному числу B. Program a1; - название программы а1 Const n=10; - размерность массива Var - начало раздела описаний A:array [1..n] of integer; - описываем массив А, состоящий из 10 чисел I,B,S:integer; - параметр цикла, сумма и заданное число – числа целого типа Begin - начало программы For I:=1 to n do - с 1 по 10-ую ячейки памяти заполняем числами, Readln(A[I]); - вводимыми с клавиатуры Readln(B); - в ячейку B вводим заданное число с клавиатуры S:=0; - в ячейку S записываем ноль For I:=1 to n do - перемещаясь последовательно от ячейки к ячейке определяем If A[i] mod B=0 then – если остаток равен нулю, то S:=s+A[i]; - прибавляем элемент к содержимому ячейки S writeln(‘s=’,s:3); - вывод суммы чисел, кратных числу В readln end. - конец программы Задача2. Дан массив, состоящий из 10 целых чисел. Найти сумму четных элементов, стоящих на нечетных местах. Program a2; - название программы а2 Const n=10; - размерность массива Var - начало раздела описаний A:array [1..n] of integer; - описываем массив А, состоящий из 10 чисел I.s:integer; - параметр цикла и сумма – числа целого типа Begin - начало программы For I:=1 to n do - с 1 по 10-ую ячейки памяти заполняем числами, Readln(A[I]); - вводимыми с клавиатуры S:=0; - в ячейку S записываем ноль For I:=1 to n do - перемещаясь последовательно от ячейки к ячейке If (A[i] mod 2=0) and (I mod 2 0) then – если остаток равен нулю и элемент стоит на нечетном месте, то S:=s+A[i]; - прибавляем элемент к содержимому ячейки S writeln(‘s=’,s:3); - вывод суммы четных чисел, стоящих на нечетных местах readln end. - конец программы