Вычислить сумму всех положительных чисел из 20 вводимых случайным образом. Randomize)) for
Вычислить сумму всех положительных чисел из 20 вводимых случайным образом. Randomize)) for
Гость
Ответ(ы) на вопрос:
ГостьС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
Гость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.
Не нашли ответ?
Похожие вопросы