Найдите сумму элементов массива (50 элементов из [-50; 50]) кратных 7.
5-9 класс
|
program test;
const n = 5;
var i,sum:integer;
a:array [1..n] of integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] mod 7 =0 then sum:=sum+a[i];
writeln(sum);
end.
Во вложении
-----------------------
Другие вопросы из категории
5 мин
б) больше 15 мин
в) 10 мин
г) 2,5 мин
какого выражения он может это сделать?
1) exp(ln(a)*n);
2) exp(ln(n)*a);
3) ln(exp(a)*n);
4) ln(exp(n)*a)
Читайте также
Входные данные:
в первой строке целое число n (0 < n ≤ 100) - кол-во элементов в массиве и целые числа i1 и i2 (0 < i1, i2 ≤ 100). Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) - значения элементов массива.
Выходные данные:
сумма элементов массива c номерами от i1 до i2.
(Написать программу на Паскале)
местах; в) подсчитать сумму отрицательных элементов массива; г) подсчитать сумму элементов массива, больших произвольного числа К. помогите, пожалуйста
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.