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

Pascal

Question

Информатика

Валерия

29 апреля, 15:29

Дан массив целых чисел из 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.