Вопрос по информатике:
Дан одномерный целый массив на 10 элементов . Посчитать сумму отрицательных и положительных чисел
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.03.2017 10:44
- Информатика
- remove_red_eye 7718
- thumb_up 35
Ответы и объяснения 1
Uses crt;
var mas: array [1..10] of integer;
x,sum1,sum2: integer;
begin
sum1:=0;
sum2:=0;
for x:=1 to 10 do begin
mas[x]:=random(21)-10;
write(mas[x]:4);
if mas[x]>0 then sum1:=sum1+mas[x];
if mas[x]<0 then sum2:=sum2+mas[x];
end;
writeln;
writeln('Сумма отрицательных чисел: ',sum2);
writeln('Сумма положительных чисел: ',sum1);
end.
- 08.03.2017 18:09
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.