Вопрос по информатике:
Помогите решить задачу в Pascal
Дан массив целых чисел, состоящий из 30 элементов. Заполнить его датчиком случайных чисел. Найти сумму отрицательных элементов.
- 09.01.2018 11:21
- Информатика
- remove_red_eye 11486
- thumb_up 10
Ответы и объяснения 1
Var n,sum:integer;
arr: array [0..30] of integer;
begin
sum:=0;
randomize;
for n:=0 to 29 do begin
arr[n]:=random(1000)-500;
if (arr[n]<0) then sum:=sum+arr[n];
end;
writeln('сумма отрицательных чисел = ',sum);
end.
- 01.01.1970 00:00
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.