1 2 3 4 5 6 7 8 9 10 11 12 13 14 | input ndim a(n)for i=1 to ninput"vvedite element ",a(i)nextprint "massiv"for i=1 to nprint a(i);nextprintfor i=1 to nif i=a(i) then s=s+a(i)nextprint s |
Тестирование выполнено в программе QB64 ( Скачать )