Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-100; 100] найти сумму положительных элементов, значения которых меньше 10.

Pascal

Question

Информатика

Маринуша

23 января, 21:55

Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-100; 100] найти сумму положительных элементов, значения которых меньше 10.

Pascal

+1

Ответы (1)

Знаете ответ на вопрос?

Лаврюся · Answer 1

Var

mas:array[1 ... 999] of integer;

n, sum:integer;

begin

sum:=0;

randomize;

readln (n) ;

for i:=1 to n do

begin

mas[i]:=random (201) - 100;

write (mas[i],' ') ;

end;

writeln;

for i:=1 to n do

if (mas[i]>0) AND (mas[i]<10) then

sum:=sum+mas[i];

writeln (sum) ;

end.