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

Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-100;100] найти сумму положительных элементов, значения которых меньше 10.  Pascal
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы