Цитата:
Сообщение от Ma-sha
IF R=0 THEN
PRINT "Количество элементов, больших "; S; "равно "; R
|
зачем это условие?
Цитата:
Сообщение от Ma-sha
REM Нахождение минимального элемента
FOR i=1 TO M
IF Z(i)< Zmin THEN Zmin=Z(i)
NEXT i
PRINT "Zmin=", Zmin
|
перед циклом сделать Zmin = Z(0)
вычислить Zmin, а дальше в цикле:
Z(i) = Z(i) - Zmin
PRINT Z(i)
если язык такое позволяет)