Задан массив из N элементов. Вычислить сумму тех элементов, которые кратны 5.
5-9 класс
|
Program t1;
Var A: array [1..1000] of integer; N, i: Byte; s: Longint;
Begin
Readln (N);
For i:= 1 to N do
Begin
Readln (A[i]);
If A[i] mod 5 = 0 then
s:=s+A[i];
End;
Write (s);
Readln;
End.
Другие вопросы из категории
Напишите процедуру ввода N элементов массива из файла. Отсортируйте по невозрастанию методом простого обмена. (Паскаль)
2.Какой алфавит нашел наибольшее распространение в различных сферах деятельности?Как называются символы этого алфавита?
Читайте также
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .
равен 500; второй равен целой части квадратного корня из предыдущего элемента; третий равен целой части от деления текущего индекса на три части (если она равна нулю,то соответствующий элемент массива делать равным 1)