Вопрос по информатике:
Дан одномерный массив, состоящий из вещественных элементов. Найти сумму элементов массива, расположенных до последнего положительного элемента.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.08.2016 01:36
- Информатика
- remove_red_eye 3742
- thumb_up 36
Ответы и объяснения 1
var
a : array [1..100] of real;
n, i : integer;
flag : boolean;
sum : real;
begin
read (n);
for i := 1 to n do read (a[i]);
flag := false; sum := 0;
for i := n downto 1 do
if flag then sum := sum + a[i]
else if a[i] > 0 then flag := true;
writeln (sum);
end.
- 15.08.2016 17:49
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.