Дан массив из n целых чисел элементы вводятся случайным образом из отрезка от -10 до 10 найти сумму положительных чисел

142

252

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

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

Kata8i77866

Информатика

4,6(29 оценок)

//pascal var a: array[1..255] of integer; i, n: byte; sum: integer; begin randomize; write('ввелите n: '); readln(n); for i : = 1 to n do begin a[i] : = random(21)-10; if a[i] > 0 then sum : = sum + a[i]; write(a[i], ' '); end; writeln; writeln('сумма положительных элементов = ', sum); readln; end.