Это 3) вариант А 1 можешь проверить..
<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>
Отважная девочка Мегги и её отец обладающий даром: когда он читает книгу вслух ,ё герои оживают . Правда,взамен кто-то из слушателей оказывается в придуманном писателем мире,а как известно в книгах бывают не только добрые персонажи...
1...чонки экзаменнарга азерланам.
2...китаплар куп укыйм.
3...ботен китапларны апада калдырдым.
4...билгелар начар.
Через посушливого лiта, сильних дощiв, сильних вiтрiв. Але вiд вiтру можна позубитися якщо перед полем посадите дерева, але так само є проблеми з птахами i худобою.