Написать программу нахождения в вещественном массиве из 10 элементов, количества отрицательных и превышающих -30.

125

158

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

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

kristinakalash

Информатика

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

//pascal var a: array[1..10] of real; i, count: integer; begin count : = 0; write('исходный массив: '); for i : = 1 to 10 do begin {генерация} a[i] : = random(200) + random() - 100; {вывод} write(a[i] : 0 : 5, ' '); {проверка} if (a[i] > -30) and (a[i] < 0) then inc(count); end; writeln; writeln('количество отрицательных элементов, превышающих -30: ', count); end.