Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Метод гаусса https://www.cyberforum.ru/ pascalabc/ thread729305.html
вот программа, обращение матрицы методом исключения Гаусса с выбором ведущего элемента по всей матрице. помогите переделать чтоб выбор ведущего элемента был по столбцу. Program Gauss; uses crt;...
ввести натуральное число и определить какие цифры встречаютса несколько разов? Pascal ABC
помогите мне с циклом while задача 1 вот мне нада ввести натуральное число и определить какие цифры встречаютса несколько разов? и задача 2 определить натуральное число и определить что...
Pascal ABC Составьте программу,которая задает пользователю вопрос,требующий однозначного ответа задача №1 Составьте программу,которая задает пользователю вопрос,требующий однозначного ответа;предлагает пользователю несколько подсказок и попыток.Если он угадал,то спрашивает его имя и выводит на... https://www.cyberforum.ru/ pascalabc/ thread729274.html Pascal ABC вычислить произведение выражение 2*4*6*8...(2-n) и вычислить сумму n слагаемых вида sin ix где х заданое число помогите написать пожалуста программу через оператор циклу for вычислить произведение выражение 2*4*6*8...(2-n) и вычислить сумму n слагаемых вида sin ix где х заданое число https://www.cyberforum.ru/ pascalabc/ thread729264.html
Pascal ABC В прямоугольной матрице определить количество столбцов, не содержащих ни одного нулевого элемента
вот такое задание, помогите кто чем может В прямоугольной матрице определить количество столбцов, не содержащих ни одного нулевого элемента. Характеристика строки целочисленнной матрицы - сумма...
Pascal ABC Тема: Подпрограммы. Процедуры и функций https://www.cyberforum.ru/ pascalabc/ thread729259.html
помогите заполнить комментарии. uses crt; {модуль crt } <--- так пишем для каждого комментарии. var n,x,k: integer; {описание переменных} function summa(n: integer): integer; {процедура} var s:...
Pascal ABC одномерный масиив помогите заполнить комментарии. uses crt; {модуль crt } <--- так пишем для каждого комментарии. type mass=arrayof integer; {описание одномерного массива} var a:mass; {описание переменных}... https://www.cyberforum.ru/ pascalabc/ thread729256.html Найти все трехзначные числа, сумма квадратов цифр которых делится на 13 Pascal ABC
Помогите плиз((( токо простенько, чтоб препод поверил, я первый курс.. плиз((
Pascal ABC В массиве, все элементы которого различны, найти и удалить n наименьших элементов, «поджимая» массив к началу и сохраняя порядок следования В массиве А(l), все элементы которого различны, найти и удалить n наименьших элементов, «поджимая» массив к началу и сохраняя порядок следования остальных элементов. https://www.cyberforum.ru/ pascalabc/ thread729252.html Pascal ABC двумерный массив https://www.cyberforum.ru/ pascalabc/ thread729251.html
помогите заполнить комментарии. uses crt;{модуль crt } <--- так пишем для каждого комментарии. const nmax=15;{} var a: array of integer;{описание двумерного массива}...
Pascal ABC Заполнить двумерный массив
Заполнить двумерный массив датчиком случайных чисел, расположить элементы главной диогонали по убыванию, возрастанию. ________________ Зарание спасибо огромное!!!
Pascal ABC Дано целое число N (> 0). Найти сумму 1в N степени + 2 в степени N−1 + … + Nв 1 степени. Дано целое число N (> 0). Найти сумму 1в N степени + 2 в степени N−1 + … + Nв 1 степени. в авс паскале https://www.cyberforum.ru/ pascalabc/ thread729176.html
14 / 14 / 9
Регистрация: 12.10.2012
Сообщений: 49
12.12.2012, 19:51 0

Дан массив из N элементов. Определить произведение тех элементов, которые кратны заданному числу Р. - Pascal ABC - Ответ 3846446

12.12.2012, 19:51. Показов 5354. Ответов 3
Метки (Все метки)

Ответ

Я так понял это надо две задачи сделать. Вот первая:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var a: array [1..9999] of integer;
i, n, p, s: integer;
begin
s:=1;
write ('Введите количество элементов в массиве ');
read (n);
writeln ('Исходный массив: ');
for i:=1 to n do
  begin
  a[i]:=random (30);
  write (a[i],' ');
  end;
  writeln;
  writeln ('Введите число ');
  read (p);
   for i:=1 to n do
     begin
     if a[i] mod p = 0 then s:=s*a[i];
     end;
     writeln ('Произведение элементов, кратных числу ',p,' равно ',s);
end.
Сейчас вторую сделаю

Вернуться к обсуждению:
Дан массив из N элементов. Определить произведение тех элементов, которые кратны заданному числу Р. Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2012, 19:51
Готовые ответы и решения:

Двумерный массив. Найти произведение тех элементов, которые кратны заданному
задача :дана матрица A (N*L) найти произведение тех её элементов которые кратны L. мой код : ...

Дан массив из N элементов (натуральные числа). Определить произведение элементов, кратных заданному числу Р
Задание: Дан массив из N элементов (натуральные числа). Определить произведение элементов, кратных...

Дан массив из N элементов (натуральные числа). Определить произведение элементов, кратных заданному числу
Всем доброго времени суток! Задание: Дан массив из N элементов (натуральные числа). Определить...

Определить произведение элементов, значения которых не кратны заданному числу F
решение в Visual Basic 6.0 Дан двумерный массив (матрица) размером NxM. 1. Определить...

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

Определить произведение элементов матрицы, значения которых не кратны заданному числу F
Двумерный массив (матрица) размером NxM. Определить произведение элементов, значения которых не...

Определить количество элементов массива, которые кратны заданному целому числу m
Задан одномерный массив с n целых элементов Определить количество элементов этого массива, которые...

Дан массив из n элементов. Найти произведение элементов, кратных заданному числу p
Дан массив из n элементов. Найти произведение элементов, кратных заданному числу p

Найти среднее арифметическое элементов массива, которые кратны заданному числу и определить количество элемент
-------------------------------- Индекс 1 2 3 4 5 6 Элемент -10 15 -4 20 1 8 ...

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