Нахождение суммы элементов одномерного массива по условию

Слайд 2

Задача 1. Дан массив, состоящий из 10 целых чисел. Найти сумму элементов,

Задача 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. - конец программы

Слайд 3

Задача2. Дан массив, состоящий из 10 целых чисел. Найти сумму четных элементов,

Задача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. - конец программы
Имя файла: Нахождение-суммы-элементов-одномерного-массива-по-условию.pptx
Количество просмотров: 47
Количество скачиваний: 0