Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Верно ли, что в данном числе сумма цифр больше В, а само число делится на В Здравствуйте! Помогите пожалуйста решить задачу: 1. Дано натуральное число. Верно ли, что в данном числе сумма цифр больше В, а само число делится на В (В вводится с клавиатуры) Надо решить... https://www.cyberforum.ru/ pascalabc/ thread701934.html Вывести первое слово строки в обратном порядке Pascal ABC
Помогите решить. Вывести первое слово строки в обратном порядке.
Pascal ABC Другой способ https://www.cyberforum.ru/ pascalabc/ thread701923.html
Задача: Заменить все многоточия точками. Знаю, что задача идиотская, я ее решил 2 способами: №1 var sim:string; n:integer; begin writeln('строка'); readln(sim);
Pascal ABC Циклы с заданным количеством повторений: Напечатать «столбиком» значения sin2, sin3,…, sin20 Циклы с заданным количеством повторений Напечатать «столбиком» значения sin2, sin3,…, sin20. https://www.cyberforum.ru/ pascalabc/ thread701886.html
Pascal ABC Массивы: Найти произведение положительных элементов, значение которых меньше 10
Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: Массивы 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Найти: -...
Pascal ABC Массив: Определить, есть ли пара соседних элементов с произведением, равным числу 56 Приветствую форумчане. Прошу вас помочь с заданием. Задача: Массивы 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Определить, есть ли пара соседних элементов с... https://www.cyberforum.ru/ pascalabc/ thread701862.html
Pascal ABC Из элементов массива Р сформировать массив М той же размерности по правилу Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Из элементов... https://www.cyberforum.ru/ pascalabc/ thread701860.html Умножить все элементы, кратные 5, на пятый элемент массива Pascal ABC
Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Умножить все...
Pascal ABC Заменить первый отрицательный элемент буквой k Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: Массивы 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Заменить... https://www.cyberforum.ru/ pascalabc/ thread701858.html Pascal ABC Паскаль. Узнать одинаковые поля записей https://www.cyberforum.ru/ pascalabc/ thread701817.html
Помогите! Вводим число больных. Для больных каждом указываем имя, фамилию, болезнь и т.д. Это я сделал. Суть задачи: 1) Вывести больных по дню рождения. - Это сделал. 2) Вывести тех больных,...
Pascal ABC Найти, сколько слов в тексте заканчивается двойной согласной
Помогите пожалуйста Найти, сколько слов в тексте заканчивается двойной согласной.
Pascal ABC Составить программу вычисления и печати в виде таблицы значении функции и соответствующих аргументов Примечание: извлечение корня третьей степени и выше осуществлять по итерационной формуле Ньютона: https://www.cyberforum.ru/ pascalabc/ thread701764.html
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,491
Записей в блоге: 1
19.11.2012, 11:18 0

Подсчитать количество и сумму элементов массива, которые делятся на 5 без остатка - Pascal ABC - Ответ 3720902

19.11.2012, 11:18. Показов 7913. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено f3tch как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Const n=10;
Var A:array[1..n] of integer;
    i,k,s:integer;
Begin
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
      if A[i] mod 5 = 0 then
      Begin
        inc(k);
        inc(s,A[i]);
      End;
    End;
    writeln;
    writeln('Сумма = ',s);
    writeln('Кол-во = ',k);
end.


Вернуться к обсуждению:
Подсчитать количество и сумму элементов массива, которые делятся на 5 без остатка Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2012, 11:18
Готовые ответы и решения:

Найти сумму элементов массива, которые без остатка делятся на 2
Не могу разобраться ! препод задал ! Задание Дан массив из 10 целых чисел...

Определить в матрице количество тех элементов, которые без остатка делятся на собственный индекс
Ввести двумерный массив Определить в нем количество тех элементов, которые без остатка делятся на...

Одномерные массивы. Определить произведение элементов, которые без остатка делятся на 2 и не делятся на 3
Ребят помогите пожалуйста с двумя задачами "одномерные массивы" 1)Ввести одномерный массив A из...

Определить в массиве сумму элементов, чьи значения без остатка делятся на 3 и не делятся на 2
1)Ввести одномерный массив А из 12 эл. определить в нем сумму эл. чьё значение без остатка делится...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2012, 11:18
Помогаю со студенческими работами здесь

Определить количество четных отрицательных чисел которые делятся на 3 без остатка
дано 10 целых чисел определить количество четных отрицательных чисел которые деляться на 3 без...

Количество чисел между 100 и 1000, которые делятся без остатка одновременно на 13 и 15
определите и выведите на экран количество чисел между 100 и 1000, которые делятся без остатка...

Заменить все элементы массива, которые делятся без остатка на «3», на единицы (9);
Что не так делаю? uses crt; const nmax=9; var a:array of integer; n,i:integer; begin...

Найти количество и сумму тех членов данного массива, которые делятся на 5 и не делятся на 7
написать программу на паскале.Дан массив целых чисел а0,...,аn-1. Найти количество и сумму тех...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru