1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | input "vvedite kol-vo elementov ",ndim x(n)for i=1 to ninput"vvedite element ",x(i)nextprint"ishodnyj massiv"for i=1 to nprint x(i);nextprintfor i=1 to nif x(i)<0 then x(i)=0nextprint"novyj massiv"for i=1 to nprint x(i);next |
Тестирование выполнено в программе QB64 ( Скачать )