Тиздэн жэй килеп житэ. Мин жэй коне авылга кайтырга жыенам. Авылда мин эбиемэ хэм бабаема булышам. Мин бакчада эшлим. Мин су сибэм,чуп утыйм. Мин эбием белэн ашарга пешерергэ яратам. Э бабаем белэн мин печэнгэ йорим. Мина авылда бик ошый. Шуна курэ жэй коне мин авылга жыенам.
Прости я токое не прохожу
<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>
По моему это для людей был дом, а рисовали они с целью для того что бы мы это могли увидеть! (но это не точно)