SerW, эт училка специально, так задание пишет.

А про вторую и третью задачу че скажите?

[joker], вы матрицы уже изучали?

SerW, да.

SerW, по высшей математике изучиали, а по информатике нет!

[joker], первая вот:
CLS
DIM A(20)
For I = 1 to 20
Input A(I)
If INT(A(I)/2)<A(I)/2 Then A = A +1
Next I
? “Summ = ”; A
END

Вторая:<b>
CLS
Input A
DIM A(20)
DIM B(20)
For I = 1 to 20
Input A(I)
If A(I) > A Then B(I) = I
Next I
For I = 1 To 20
If B(I) > 0 Then ? B (I)
Next I
END
</b>

SerW, почему бред сивой кобылы?!? что тут такого?!?!

Третья:<b>
CLS
Input k
DIM A(20)
For I = 1 to 20
Input A(I)
If A(I) > 0 And INT(A(I) / k) = A(I) / k Then A= A + 1
Next I
If A > 0 Then ? “Есть” Else ? “Нет”
END
</b>

Только эти три задачи если в одну будешь объедиеять, то обрати внимание на обозначение переменных! Их надо быдет переназвать!

SerW, ОГРОМНОЕ ТЕБЕ, С-П-А-С-И-Б-О!!!!!

Помогите решить задачу: Изобразить на экране движение нескольких разноцветных окружностей. Думаю трех хватит:)