Первая часть вроде так:

DIM a(20)
LET sum = 0
CLS

REM Zapolnyaem massiv
FOR i = 1 TO 20
INPUT "Vvedite element:", a(i)
NEXT i

REM Proveryaem massiv, zaodno ischem MIN
LET min = a(1)
FOR i = 1 TO 20
IF INT(i / 2) = i / 2 THEN sum = sum + a(i) * a(i)
IF min < a(i) THEN min = a(i)
NEXT i
PRINT "Summa summa kvadratov elementov s chetmyni nomerami:", sum

REM Sortiruem massiv po vozrastaniu

FOR i = 1 TO 19
FOR j = i + 1 TO 20
IF a(i) > a(j) THEN
b = a(i)
a(i) = a(j)
a(j) = b
END IF
NEXT j
NEXT i


REM Ischem sr.arifm 6 naibolshih elementov
LET sum1 = 0
FOR i = 1 TO 6
sum1 = sum1 + a(i)
NEXT i
srarifm = sum1 / 6
PRINT "Srednee arifrm 6 naib.elementov:"; srarifm


REM Zamenyaem nulevye elementy na min.znacheniya
FOR i = 1 TO 20
IF a(i) = 0 THEN a(i) = min
NEXT i

Сообщение отредактировал BigMax - 6.4.2009, 18:51

Грубо извиняюсь, то задание мне нужно для порграммы ТурбоПаскаль. Если кто может сделайте)

Замечание модератора: Эта тема была закрыта автоматически ввиду отсутствия активности в ней на протяжении 100+ дней. Если Вы считаете ее актуальной и хотите оставить сообщение, то воспользуйтесь кнопкой или обратитесь к любому из модераторов.