Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
2 / 2 / 1
Регистрация: 24.11.2011
Сообщений: 11
1

Для массива найти произведение элементов, значения которых не лежат в пределах [2; 8]

24.11.2011, 14:56. Просмотров 1262. Ответов 3
Метки нет (Все метки)

написать программу на языке delphi (pascal)

Для массива с1,с2...с30 найти произведение элементов, значения которых не лежат в пределах [2;8]
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2011, 14:56
Ответы с готовыми решениями:

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

Составить процедуру подсчета количества элементов массива A, значения которых лежат в пределах от p до q
составить процедуру подсчета кол-ва элементов одномерного массива A, значения которых лежат в...

Составить подпрограмму подсчета количества L элементов массива, значения которых лежат в пределах от p до q
Составить подпрограмму подсчета количества L элементов одномерного массива A, L<=m, значения...

Дано одномерный массив В, состоящий из 12 элементов. Вычислить произведение элементов массива, не равны нулю, значения которых наход. в пределах А и С
Помогите пожалуйста с задачкой Дано одномерный массив В, состоящий из 12 элементов. Вычислить...

3
14 / 14 / 6
Регистрация: 23.02.2010
Сообщений: 221
24.11.2011, 15:12 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
const n=30;
var mult,i:integer;
c:array[1..n] of integer;
begin
mult:=1;
for i to n do begin
 if (c[i]<2) or (c[i]>8) then
  mult:=mult*c[i];
end;
writeln(mult);
readkey;
end.
1
2 / 2 / 1
Регистрация: 24.11.2011
Сообщений: 11
24.11.2011, 15:44  [ТС] 3
выдает ошибку после to =(
0
191 / 127 / 52
Регистрация: 19.01.2010
Сообщений: 518
24.11.2011, 15:54 4
Цитата Сообщение от corpse613 Посмотреть сообщение
выдает ошибку после to =(
Delphi
1
for i:=1 to n do begin
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.11.2011, 15:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определение адресов элементов, значения которых лежат в пределах от p до q в одномерном массиве
как сделать, чтобы программа работала на турбо паскале?у меня дома на фри паскале работает, а в...

Найти количество элементов массива значения которых лежат между средним арифметическим элементов массива и
Найти количество элементов массива A значения которых лежат между средним арифметическим элементов...

Найти сумму элементов массива A (n), значения которых лежат в диапазоне от В до С
Спасибо большое. А сможет эту помочь? Найти сумму элементов массива A (n), значения которых лежат...

Найти сумму элементов массива, значения которых лежат в диапазоне от В до С
Найти сумму элементов массива A (n), значения которых лежат в диапазоне от В до С, т.е. В &lt;А(I) &lt;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.