1). Какие виды графики вы знаете?
2). Что из себя представляет растровое изображение?
3). Отметить плюсы и минусы
4). В чем назначение программ векторной графики?
5). Назовите программы, которые были использованы для создания этих
изображений?
6). В каком редакторе вы уже работали в школьном курсе?

Знаковая система - набор символов определенного типа. Любая знаковая система строится на основании символов определенного типа. В одной знаковой системе одни и те же правила работы со всеми символами. Каждая знаковая система имеет конечный набор символов, который называют алфавитом. Количество символов в одной знаковой системе называют мощностью знаковой системы.
Русский язык - это естественная знаковая система. Имеет алфавит, который состоит из букв, буквы дают возможность формировать слова - основу русского языка. Мощность русского алфавита - 33 буквы. Правила чтения слов применяются для всех букв. Написание одних и тех же букв в разных словах одинаково.
Десятичная система счисления - формальная знаковая система. Это математическая знаковая система. Алфавит состоит из набора цифр: 0, 1, 2, 3, 4 и т.д. Мощность алфавита - 10 цифр. Правила сложения, вычитания, умножения, деления, возведения в степень и других математических действий используется для любых чисел, состоящих из цифр десятичной системы. 

1)
const n=?; //Сюда поставить любое нужное n
Var a:array[1..n] of real;
i,x,k:integer; s:real;
Begin
 for i:=1 to n do
   begin
    readln(x);
    a[i]:=x;
   end;
 s:=0;
 k:=0;
 for i:=1 to n do
  begin
   s:=s+a[i];
   k:=k+1;
  end;
 s:=s/k;
 for i:=1 to n do
  if a[i]<s then
    write(a[i],', ');
 s:=s/k;
 for i:=1 to n do
  if a[i]<s then
    write(a[i],', ');
 readln;
End.

2)
Const n=?;
Var a:array[1..n] of integer;
i,max,min:integer;
Begin
 for i:=1 to n do
   begin
    readln(x);
    a[i]:=x;
   end;
 min:=a[1];
 max:=a[1];
 for i:=1 to n do
   if (i mod 2)=0 then
     if a[i]>max then
       max:=a[i];
 for i:=1 to n do
   if (i mod 2)<>0 then
     if a[i]<min then
       min:=a[i];
 writeln('max=',max);
 writeln('min=',min);
 readln;
End.