Дан массив целых чисел из n элементов, заполненный случайным образом числами из...

Question

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

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<br>  sum:=sum+mas[i];
writeln(sum);
end.

Comments

не правильно

---

Вроде только переменную i забыл описать

---

А так все верно

---

сумму не выводит

---

выводит

---

Добавьте переменную i в описание

---

дада

---

не заметил

---

выводит