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

165

194

Посмотреть ответы 2

Ответы на вопрос:

katyaaalovely

Информатика

4,5(11 оценок)

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.