1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | DEFDBL A-Z CLSINPUT "Vvedite kol-vo chisel : ", n DIM B(n), S ' Заполним массив RANDOMIZE TIMER FOR i = 1 TO n B(i) = RND * 10 - 5 PRINT USING " ##.##### "; B(i); NEXT: PRINT ' Найдём числа, сумму их квадратов и их количество. PRINT "Pologitelnye chisla:" FOR i = 1 TO n IF B(i) > 0 THEN k = k + 1 PRINT USING " ##.##### "; B(i); S = S + B(i) * B(i) END IF NEXT: PRINT ' Среднее арифметическое IF k > 1 THEN S = S / k PRINT USING "Srednee arifm. ih kvadratov : ##.#####"; S |
Тестирование выполнено в программе QB64 ( Скачать )