Грозный великан, ночная гроза, шторм
.
Соловей, флейта, ранний теплый дождь.
Больше ничем не могу помочь
Планеты,звёзды,метеориты,кометы.
<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>
Не включай плиту если ты не умеешь не открывай чужим двери не высовывайся из окон не сидеть на подоконнике перед открытым окном не включай сломаные предметы не ставь эксперименты с огнём если оборвался электрический провод не туши его водой звони 01 если ты разбил (вазу,лампа) и если ты поранился не лечи рану сам позвони комуто из взрослых они тебе помогут если разлилась какая та жидкость (ртуть)не убирай её без взрослых если если тебе плохо позвони взрослым и спроси что делать
Только сегодня и только для вас air max по супер цене 999 рублей