Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
kolya9
0 / 0 / 0
Регистрация: 07.04.2010
Сообщений: 22
#1

Вычислить произведение отрицательных чисел

18.05.2010, 00:18. Просмотров 920. Ответов 1
Метки нет (Все метки)

Пускай на диске есть файл 'zadanie1.pas', состоящий из 10 целых чисел (записать через пробел). Вычислить произведение отрицательных чисел

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2010, 00:18
Ответы с готовыми решениями:

Вычислить произведение отрицательных чисел в последовательности.
Дана последовательность из n целых чисел.вычислить произведение отрицательных...

Вычислить сумму модулей отрицательных чисел и произведение положительных элементов матрицы, а также количество нулей.
Дана матрица PS(3*5), содержащая положительные, отрицательные числа и нули....

Вычислить произведение отрицательных элементов и произведение положительных, и сравнить их
Входные данные записываются в файл input.txt, а выходные в output.txt. По...

Количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах.
Подсчитать количество чисел, меньших заданного Х, и произведение всех...

Вычислить произведение первых нечетных чисел, перемножая их до тех пор, пока из произведение не превысит N
Вычислить произведение первых нечетных чисел, перемножая их до тех пор, пока из...

1
Mиxaил
534 / 439 / 162
Регистрация: 10.12.2009
Сообщений: 1,857
18.05.2010, 00:54 #2
Лучший ответ Сообщение было отмечено kolya9 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  mult, a: integer;
 
begin
  assign(input, 'zadanie1.txt');   {с этого файла ('zadanie1.pas') ты не сможешь прочитать}
  reset(input);
  mult := 1;
  while not eof(input) do
  begin
    read(a);
    if a < 0 then mult := mult * a;
  end;
  close(input);
  writeln('произведение отрицательных чисел файла: ', mult);
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.05.2010, 00:54

Вычислить произведение отрицательных элементов массива
В одномерном массиве Z , состоящий из N целых элементов , вычислить : a )...

Вычислить произведение отрицательных элементов массива
Задача №1 В одномерном массиве, состоящем из n вещественных элементов,...

Найти произведение отрицательных чисел
Дана последовательность из N целых чисел. Числа вводятся с помощью генератора...


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

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

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