Составить программу нахождения количества положительных элементов в массиве из n вещественных чисел

176

491

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

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

ponomareva1947

Информатика

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

// pascalabc.net 3.1, сборка 1214 от 09.04.2016 begin var a: =arrrandomreal(readinteger('n=',20); a.println; writeln('положительных: ',a.where(x-> x> 0).count) end. тестовое решение: n= 7 -17.1342332089014 3.03964398011549 16.2039925512876 -6.95437877762801 13.9224117034685 -1.08502876995366 11.8818603045688 положительных: 4

лом15

Информатика

4,4(92 оценок)

Const max = 20; var arr : array [1..max] of real; count, i : integer; begin for i : = 1 to max do arr[i] : = random(100) - 50; for i : = 1 to max do write(arr[i], ' '); writeln(); for i : = 1 to max do if arr[i] > 0 then count : = count + 1; writeln('количество положительных чисел: ', count); end.