Дан массив а1,а2,…..,аn выбрать из них отрицательные элементы — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
cls
input "n"; n
dim a(n)
for i=1 to n
input a(i)
next i
for i = 1 to n
if a(i) < 0 then ? a(i)
next i

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment