Найти сумму положительных чисел массива X, состоящего из Nэлементов.
Найти сумму положительных чисел массива X, состоящего из Nэлементов.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы