1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | CLS INPUT "kolvo predpriyatiy="; n DIM r(n) FOR i = 1 TO n PRINT "Element "; i; INPUT "Rashod energii predpr ="; r(i) NEXT sr = 0 : min = 1 FOR i = 1 TO n sr = sr + r(i) IF r(i) < r(min) THEN min = i NEXT sr = sr / n PRINT "Sredniy rashod="; sr PRINT "Nomer predpr s minim rashodom="; min |
Тестирование выполнено в программе QB64 ( Скачать )