<span>Var m:array[1..100] of integer<span>;
</span>i,n:integer<span>;
</span>begin
write('Введите размерность массива: ');readln(n)<span>;
</span>writeln('Введите массив: '<span>)
</span>for i:=1 to N <span>do
</span>readln(m[i])<span>;
</span>writeln('Массив: ')<span>;
</span>for i:=1 to N <span>do
</span>if M[i]>0 then write(M[i],' ')<span>;
</span>for i:=1 to N <span>do
</span>if M[i]<0 then write(M[i],' ')<span>;
</span>end.
</span>
Що-так
Не-так
то-так
Це службові частини речення
В этой басне говорится о том как две бочки едут по своему пути.В первой бочке вино,она едет по своему делу,ну т.е доставить вино,а вторая бочка пустая,но она шумит пыль из неё пыль идёт.Суть этой басни,в том,что первая бочка едет с целью:спокойно-которой не нужна слава,или внимание(например человек,который идет на работу он видит перед собой цель к ней и стремится,без шума и внимания),а вторая бочка,которая пустая она как бездарность,внутри нее ничего нет,но она издает шум чтобы привлечь внимание людей,но не привлекает внимания.
В грунте больше всего глины
Вот смотри.Дорогая водичка я хочу тебя по благодарить за то-что ты у нас есть.Ты нам даешь по пить приготовить по кушать и многое другое.Спасибо тебе водичка за то-что ты есть! <span />