Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Вычислить значение выражения Поморите пожалуйста решить задачки в Pascal... Фото заданий ниже) Спасибо. https://www.cyberforum.ru/ pascalabc/ thread1139742.html Pascal ABC Написать программу, которая вычисляла и отображала сумму кубов
Написать программу, которая вычисляла и отображала сумму кубов двух чисел с помощью подпрограммы процедуры.
Pascal ABC Отладочный режим программы Программа в отладочном режиме должна показывать исходную матрицу и состояние матрицы после каждой перестановки. Саму программу сделал, она рабочая, а вот как добиться, чтобы она показывала... https://www.cyberforum.ru/ pascalabc/ thread1139576.html Pascal ABC Составить процедуру https://www.cyberforum.ru/ pascalabc/ thread1139563.html
Составить процедуру, проверяющую на равенство значения элементов списков L1 и L2 и подсчитывающую количество одинаковых элементов в них. Используя процеду-ру, проанализировать пары списков M1 и M2,...
Занести в файл q те компоненты файла f, которые являются четными Pascal ABC
Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Занести в файл q те компоненты файла f, которые являются четными.
Pascal ABC Найти последний отрицательный элемент https://www.cyberforum.ru/ pascalabc/ thread1139483.html
В одномерном массиве, состоящем из n элементов, все элементы, начиная с последнего отрицательного - увеличить на единицу.
Pascal ABC Добавление программы в форму Здравствуйте уважаемые форумчане! У меня есть программа, которую необходимо добавить в форму. Нужно, чтобы и пользовательские данные и сообщения вводились и выводились в одном окне построчно. Как это... https://www.cyberforum.ru/ pascalabc/ thread1139472.html Как сделать вращение четырехугольной пирамиды вокруг оси Ох, как в примере? Pascal ABC
Как сделать вращение четырехугольной пирамиды вокруг оси Ох, как в примере? uses crt,graphabc,events; type Cube=array of real; var i,e:integer; a:real; xx,yy,zz:array of real; x1,y1:array of...
Pascal ABC Блок-схема для нахождения суммы нечетных элементов массива https://www.cyberforum.ru/ pascalabc/ thread1139375.html
Программирование одномерных массивов. n=9. Найти сумму нечетных элементов массива n(U) program z4; uses crt; var u: array of integer; n,sum: integer; begin clrscr; sum:=0; for n:=1 to 9 do
Pascal ABC Периметр и площадь n-угольника Нужно решить задачу, включив требуемые процедуры и функции в состав модуля Unit. Выпуклый n-угольник задан координатами своих вершин (в порядке обхода по часовой стрелке. Найти: а) периметр... https://www.cyberforum.ru/ pascalabc/ thread1139340.html
Вывод и ввод массива в текстовый файл Pascal ABC
Требуется написать программу, которая создаст текстовый файл, заполнит его тремя рядам случайных чисел заданной длины, затем считать эти же числа и записать их в двумерный массив и вывести на экран...
Pascal ABC Найти максимальное число из 3 переменных как найти в паскале максимальное число из 3 переменных https://www.cyberforum.ru/ pascalabc/ thread1139206.html
5 / 5 / 12
Регистрация: 28.03.2014
Сообщений: 19
05.04.2014, 21:08 0

Написать функцию для определения количества элементов одномерного массива, кратных k - Pascal ABC - Ответ 6003754

05.04.2014, 21:08. Показов 1391. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
function kolKratn(mas : array [1..n] of integer; k : integer):integer;
var i, res: integer;
begin
     res := 0;
     for i := 1 to n do
         if (mas[i] mod k = 0) then
            res := res + 1;
     kolKratn := res;
end;


Вернуться к обсуждению:
Написать функцию для определения количества элементов одномерного массива, кратных k Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.04.2014, 21:08
Готовые ответы и решения:

Написать функцию для определения суммы положительных элементов одномерного массива
Написать функцию для определения суммы положительных элементов одномерного массива.

Написать функцию для определения произведения четных элементов одномерного массива
Написать функцию для определения произведения четных элементов одномерного массива.

Написать функцию для определения максимального элемента одномерного массива
Написать функцию для определения максимального элемента одномерного массива.

Написать функцию для определения количества пар соседних элементов одномерного массива
Написать функцию для определения количества пар соседних элементов одномерного массива, имеющих...

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

Написать функцию определения количества отрицательных элементов массива
Здравствуйте. Подскажите, пожалуйста, ошибку! Функция все время возвращает кол-во отрицательных...

Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным порядковым номером
/VBA/ Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным...

Составить программу, содержащую функцию для нахождения количества положительных элементов одномерного массива
составить программу, содержащую функцию для нахождения количества положительных элементов...

написать программу для подсчета количества отрицательных элементов двумерного массива кратных трём
написать программу для подсчета количества отрицательных элементов двумерного массива кратных трём

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