1 2 3 4 5 6 7 8 9 | INPUT "Vvedite kolichestvo massivov ", NDIM a(N)FOR i = 1 TO N INPUT "Vvedite element ", a(i)NEXTFOR i = 1 TO N IF a(i) >= -10 AND a(i) <= 12 THEN k = k + 1: s = s + a(i) ^ 2NEXTPRINT "Summa= "; s; " Kolichestvo= "; k |
Тестирование выполнено в программе QB64 ( Скачать )