Вычислить сумму всех положительных чисел из 20 вводимых случайным образом. Randomize)) for

Question

Вычислить сумму всех положительных чисел из 20 вводимых случайным образом. Randomize)) for

Answer 1

Program summapolojitelnih;
uses crt;
const n=20;
type x=array[1..n] of integer;
var a:x; i,sum:integer;
begin
for i:=1 to n do
a[i]:=random(100)-50;
for i:=1 to n do
if (a[i] > 0) then sum:=sum+a[i];
write(sum);
end.

Answer 2

СLS
RANDOMIZE TIMER
FOR i = 1 TO 20
n=INT(RND*21)-10
IF n>0 THEN s=s+n
NEXT i
PRINT "сумма равна"; s
END

Comments

язык какой?

---

Язык программирования спрашиваю какой?

---

Artem112 написал на C++, паскаль внизу я написал.