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

112

444

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

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

Yaroslava1902

Информатика

4,8(45 оценок)

Var count: integer; input: real; begin count : = 0; input : = 1; while (input < > 0) do begin write('введите число(0 - закончить ввод): '); read(input); if(input < 0) then count : = count + 1; end; write('количество отрицательных - ', count); end.