дан массив целых чисел заполненный случайнымими из диапазона -25..25.найдите сумму чисел кратных 5(напишите програму)
5-9 класс
|
Program pr;
Var a:array[1..10] of integer;
sum, i:integer;
Begin
for i:=1 to 10 do
Begin
a[i]:=random(51)-25;
Write(a[i], ';');
end;
Writeln;
sum:=0;
for i:=1 to 10 do
if a[i] mod 5=0 then sum:=sum+a[i];
Writeln('sum=', sum);
readln;
end.
Другие вопросы из категории
Читайте также
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.