Дан массив. вывести на экран сначала его неотрицательные элементы, затем отрицательные.
dasharuu
2
28.05.2019 06:30
6
Другие вопросы по теме Математика
MaruaAvilova17
22.05.2019 16:00
Dina333098
22.05.2019 16:00
TABLBC
22.05.2019 16:00
evgenypuchnin2
22.05.2019 16:00
kama1ezeGggggg
22.05.2019 16:00
kirill12123
22.05.2019 16:00
sofia2004417
22.05.2019 16:00
маша3041
22.05.2019 16:00
troffpolina2003
22.05.2019 16:00
Популярные вопросы
- Лексичне значення слова - відволікати ....
3 - Найдите неизвестные числа a-67=124. n+72=100. m: 3=9. b*8=56...
2 - Сказку(40 предложений)о живом предмете.зарание...
3 - Звуко-буквений аналіз слова джмелі-дзвонарі...
3 - 7000мм=? м 100см=? м 80дм=? м 3км=? м 6км350м=? м...
1 - Округлите число 89615 до десятков , до сотен , до тысяч...
3 - Where (you live) in 2000? раскроет скобки...
3 - Как первобытные люди пользовались копьём?...
2 - Назови пропущенные единицы длины: 1)ширина стола-60 2)высота стула-4...
3 - Вкаком году умер иван грозный,в каком году было потепление, и...
2
i,n:integer;
begin
write('Введите размерность массива: ');readln(n);
writeln('Введите массив: ')
for i:=1 to N do
readln(m[i]);
writeln('Массив: ');
for i:=1 to N do
if M[i]>0 then write(M[i],' ');
for i:=1 to N do
if M[i]<0 then write(M[i],' ');
end.
i,n:integer;
begin
write('Введите размерность массива: ');readln(n);
writeln('Введите массив: ')
for i:=1 to N do
readln(m[i]);
writeln('Массив: ');
for i:=1 to N do
if M[i]>0 then write(M[i],' ');
for i:=1 to N do
if M[i]<0 then write(M[i],' ');
end.