Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

дан массив целых чисел заполненный случайнымими из диапазона -25..25.найдите сумму чисел кратных 5(напишите програму)

5-9 класс

Irina2504bb 04 мая 2016 г., 10:45:45 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Jenese
04 мая 2016 г., 12:24:58 (7 лет назад)

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.

Ответить

Читайте также

1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.

2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.

1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.

2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.

1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов

2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.

Помогите, пожалуйста, решить задачу на языке программирования в Turbo Pascal: 1.Дан массив целых чисел, состоящий из 10 элементов.Заполнить его

с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).

2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.



Вы находитесь на странице вопроса "дан массив целых чисел заполненный случайнымими из диапазона -25..25.найдите сумму чисел кратных 5(напишите програму)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.