- Главная
- Информатика
- Нахождение суммы элементов одномерного массива по условию
Содержание
Слайд 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. - конец программы
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. - конец программы
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. - конец программы
- Предыдущая
Туберкулез науқастарының реабилитациясыСледующая -
Презентация по 8D