10 A(5) 20 FOR I=1 TO 5 30 INPUT "Введите число"; A(I) 40 NEXT I 50 MAX=A(1) 60 FOR I=2 TO 5 70 IF A(I)>MAX THEN MAX=A(I) 80 NEXT I 90 PRINT "Наибольшее значение из введенных чисел: "; MAX 100 END
Данная программа находит наибольшее значение из 5 введенных чисел и выводит его на экран.
10 A(5)
20 FOR I=1 TO 5
30 INPUT "Введите число"; A(I)
40 NEXT I
50 MAX=A(1)
60 FOR I=2 TO 5
70 IF A(I)>MAX THEN MAX=A(I)
80 NEXT I
90 PRINT "Наибольшее значение из введенных чисел: "; MAX
100 END
Данная программа находит наибольшее значение из 5 введенных чисел и выводит его на экран.