Вопрос по паскалю

23.04.2014, 12:11. **Показов** 432. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Pascal

var
input: "vvedi kolichestvo elementov-";n
dim a(n)
for i:=1 to n 
input "vvedte element massiva-";
a(i)
next
for i:=1 to n-1
for j:=1 to n-1
if a(j)<0 then swap a(j), a(j+1)
next
next
for i:=1 to n
print a(i)
next
end.

@Puporev · 23.04.2014, 12:15

Сабина7901,
Вам куда нужно было? В какой-то Basic?

Добавлено через 27 секунд
И в чем ваш вопрос?

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.04.2014, 12:15	2
	Сабина7901, Вам куда нужно было? В какой-то Basic? Добавлено через 27 секунд И в чем ваш вопрос? 0