В массиве содержаться результаты измерений температуры воздуха, которые проводились ежедневно в течение декабря месяца(данные вводятся с клавиатуры). Определить день, когда первый раз температура поднялась выше нуля, и увеличить эту температуру на 1 градус

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DIM t(30)
FOR i = 1 TO 30
    INPUT "vvedite temperaturu ", t(i)
NEXT
PRINT "temperatura"
FOR i = 1 TO 30
    PRINT t(i);
NEXT
PRINT
FOR i = 30 TO 1 STEP -1
    IF t(i) > 0 THEN d = i
NEXT
PRINT "den="; d
t(d) = t(d) + 1
PRINT "temperatura v etot den="; t(d)

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment