var pos,neg: integer; i,k,x: integer; ev,un: integer; a,b: array [1..n] of integer;
begin for i := 1 to n do read(a[i]); k := 0; pos := 0; neg := 0; for i := 1 to n do begin ev := 0; un := 0; x := a[i]; if x <> 0 then if x > 0 then if (x < pos) or (pos = 0) then pos := x else else if (x > neg) or (neg = 0) then neg := x; x := abs(x); while x <> 0 do begin if odd(x) then un := un + 1 else ev := ev + 1; x := x div 10 end; if un = ev then begin k := k + 1; b[k] := a[i] end end;
writeln(pos,' ',neg); for i := 1 to k do write(b[i],' ') end.
Сли вы сразу хотите приступить к его обучению, то для начала посмотрите видео урок, о том, как проходить этот учебник, видео урок можете посмотреть тут (нажмите по слову «тут» один раз левой кнопкой мыши), а после чего, вернитесь сюда(там будет рассказано как), перемотайте вниз, к содержанию видео курса, и начинайте изучение. Ну а те, кто хочет прочитать предисловие к учебнику – милости просим.

Компьютер для чайников, или что такое компьютер и с чем его едят?
Для многих людей, которые только-только начинают пользоваться компьютером, это «пользование» является настоящей проблемой. Ведь этот злополучный ПК (персональный компьютер, обозначает то же самое, что и просто слово «компьютер», так что не пугайтесь), имеет огромное количество функций, и как я уже писал на после того как человек находит ответ на один вопрос, на его месте тут же возникает еще пятнадцать.
Однажды, обучая свою маму и тётю, я понял, что если человека научить определенным, базовым, знаниям компьютера, то после такого обучения, все остальные знания, будут накладываться легко. Но как же эту базу определить, где найти такие слова, что бы изложить информацию начинающим пользователям так, что бы компьютер для чайников стал понятен.
Я решил взяться за это дело и захотел создать компьютерные курсы для начинающих, таким образом, чтобы обучение у них шло от самого простого к сложному. Вы скажете, что все так делают. А вот и нет. Прежде чем сделать свой курс, я прочитал три толстенных учебника по обучению компьютера для чайников, просмотрел кучу сайтов с видео уроками и статьями, и заметил такую штуку – новичкам буквально с первого урока начинают рассказывать о том, что такое реестр,. Но эти «учителя» забывают об одном, что порой, человек не знает, как включать компьютер, а они ему уже начинаете втирать о том, что такое реестр, ужасно страшное слово для «чайника»(Кстати, если потом станет интересно, то можете потом прочитать,но только после прохождения учебника).
Мои компьютерные курсы для начинающих.
Давайте я вам расскажу, чем же мой первый курс отличается от других (у меня есть еще и втоно его я вам, настоятельно, рекомендую пройти, после прохождения первого). А отличается он тем, что тся на рабочем столе, ведь именно он открывается перед вами, после включения компьютера. Очень подробно будет рассказано о меню Пуск, которое для многих новичков является гремучим лесом. После просмотра этого урока, вы поймете, что меню Пуск, один из самых удобных инструментов, для быстрой работы с Содержание видео-курса.
 Введение в курс "Основы работы на компьютере".
Краткое введение в курс "Основы работы на компьютере".
 Урок 1. Включаем компьютер.
Немного о рабочем столе и о мышке…
 Урок 2. Меню «Пуск».
Здесь я расскажу о настройке меню «Пуск».
 Урок 3. «Мой компьютер» и его «внутренности».
В этом уроке речь пойдет о вкладке «Мой компьютер».
 Урок 4. Немного о папке.
Что такое папка и как их создавать.
 Урок 5. О правой кнопке мыши.
В этом уроке будут рассмотрены функции правой кнопки мыши.
 Урок 6. Установка программ.
Здесь мы рассмотрим с вами как устанавливать программы.
n = 20;
var
pos,neg: integer;
i,k,x: integer;
ev,un: integer;
a,b: array [1..n] of integer;
begin
for i := 1 to n do
read(a[i]);
k := 0;
pos := 0;
neg := 0;
for i := 1 to n do
begin
ev := 0;
un := 0;
x := a[i];
if x <> 0 then
if x > 0 then
if (x < pos) or (pos = 0) then
pos := x
else
else
if (x > neg) or (neg = 0) then
neg := x;
x := abs(x);
while x <> 0 do
begin
if odd(x) then
un := un + 1
else
ev := ev + 1;
x := x div 10
end;
if un = ev then
begin
k := k + 1;
b[k] := a[i]
end
end;
writeln(pos,' ',neg);
for i := 1 to k do
write(b[i],' ')
end.

Компьютер для чайников, или что такое компьютер и с чем его едят?
Для многих людей, которые только-только начинают пользоваться компьютером, это «пользование» является настоящей проблемой. Ведь этот злополучный ПК (персональный компьютер, обозначает то же самое, что и просто слово «компьютер», так что не пугайтесь), имеет огромное количество функций, и как я уже писал на после того как человек находит ответ на один вопрос, на его месте тут же возникает еще пятнадцать.
Однажды, обучая свою маму и тётю, я понял, что если человека научить определенным, базовым, знаниям компьютера, то после такого обучения, все остальные знания, будут накладываться легко. Но как же эту базу определить, где найти такие слова, что бы изложить информацию начинающим пользователям так, что бы компьютер для чайников стал понятен.
Я решил взяться за это дело и захотел создать компьютерные курсы для начинающих, таким образом, чтобы обучение у них шло от самого простого к сложному. Вы скажете, что все так делают. А вот и нет. Прежде чем сделать свой курс, я прочитал три толстенных учебника по обучению компьютера для чайников, просмотрел кучу сайтов с видео уроками и статьями, и заметил такую штуку – новичкам буквально с первого урока начинают рассказывать о том, что такое реестр,. Но эти «учителя» забывают об одном, что порой, человек не знает, как включать компьютер, а они ему уже начинаете втирать о том, что такое реестр, ужасно страшное слово для «чайника»(Кстати, если потом станет интересно, то можете потом прочитать,но только после прохождения учебника).
Мои компьютерные курсы для начинающих.
Давайте я вам расскажу, чем же мой первый курс отличается от других (у меня есть еще и втоно его я вам, настоятельно, рекомендую пройти, после прохождения первого). А отличается он тем, что тся на рабочем столе, ведь именно он открывается перед вами, после включения компьютера. Очень подробно будет рассказано о меню Пуск, которое для многих новичков является гремучим лесом. После просмотра этого урока, вы поймете, что меню Пуск, один из самых удобных инструментов, для быстрой работы с
Содержание видео-курса.
 Введение в курс "Основы работы на компьютере".
Краткое введение в курс "Основы работы на компьютере".
 Урок 1. Включаем компьютер.
Немного о рабочем столе и о мышке…
 Урок 2. Меню «Пуск».
Здесь я расскажу о настройке меню «Пуск».
 Урок 3. «Мой компьютер» и его «внутренности».
В этом уроке речь пойдет о вкладке «Мой компьютер».
 Урок 4. Немного о папке.
Что такое папка и как их создавать.
 Урок 5. О правой кнопке мыши.
В этом уроке будут рассмотрены функции правой кнопки мыши.
 Урок 6. Установка программ.
Здесь мы рассмотрим с вами как устанавливать программы.
 Урок 7. Установка игр.
Здесь мы установим игру.
 Урок 8. Работа с текстом.
В этом уроке мы научимся работать с текстом.
 Урок 9. Работа с таблицами Excel.
Тут мы научимся работать с текстом.