Вопрос по информатике:
Составить программу которая формирует массив из 9 случайных целых чисел на промежутке от -30,30 и вычислите:
а) сумму отрицательных чисел
б) произведение чётных чисел
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.01.2015 14:06
- Информатика
- remove_red_eye 684
- thumb_up 33
Ответы и объяснения 1
Var
mas: array [1..9] of integer;
summ, count: integer;
i: integer;
begin
randomize;
summ := 0;
count := 1;
for i := 1 to 9 do
begin
mas[i] := random(-30, 30);
write(mas[i] : 4);
if mas[i] < 0 then summ := summ + mas[i];
if mas[i] > 0 then count := count * mas[i];
end;
writeln('');
writeln('Сумма отрицательных элементов: ', summ);
writeln('Произведение положительных элементов: ', count);
end.
- 06.01.2015 01:23
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.