Вопрос по информатике:
Найти сумму положительных чисел массива X, состоящего из Nэлементов.
- 14.09.2018 04:05
- Информатика
- remove_red_eye 10622
- thumb_up 8
Ответы и объяснения 1
Const n=20;
var x : array[1..n] of integer;
i, s : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(101)-50;
write(x[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if x[i] > 0 then s:=s+x[i];
writeln('s=',s);
end.
Пример:
Исходный массив:
23 1 44 21 -27 32 4 29 -25 18 -33 -30 -34 -14 38 -6 20 12 -24 -21
s=242
- 15.09.2018 00:15
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.