Дан одномерный массив Yn. Второй отрицательный элемент массива Yn заменить на ноль.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | INPUT" vvedite kol-vo elementov ",nDIM y(n)RANDOMIZE TIMERPRINT"massiv"FOR i=1 TO ny(i)=INT(RND*20)-10PRINT y(i);NEXTPRINTFOR i=1 TO nIF y(i) MOD 2=0 AND i MOD 2<>0 THEN s=s+y(i):m=m+1IF y(i)<0 THEN k=k+1:IF k=2 THEN y(i)=0:k=3NEXTPRINT"srednee=";s/mPRINT"novyj massiv"FOR i=1 TO nPRINT y(i);NEXT |