2. Внешние устройства Устройства ввода информации: (наименование, функция) Устройства вывода информации: (наименование, функция)

Код вот такой, блок-схему сможешь написать по комментам

var  a: array [1..100] of integer;  n, i, max, min: integer;  ans: real;
begin  writeln('Введите кол-во эллементов массива (от 1 до 100)');  readln(n); // cчитывается кол-во элементов  read(a[1]); // cчитывается первый элемент массива
  max := a[1]; //a[1] принимается за максимальный элемент  min := a[1]; //a[1] принимается за минимальный элемент
  for i := 2 to n do begin // цикл от 2 до n    read(a[i]); // cчитывается i-тый элемент массива    if (max < a[i]) then // если max меньше нового эллемента обновить max      max := a[i]    else if (min > a[i]) then // если min больше нового эллемента обновить min      min := a[i];  end;
  ans := max / min; //присвоить переменной ans ответ на задачу
  writeln(ans); // вывести ответ
end.

Var n, a, pos, neg, null, i: integer;
 begin
  pos := 0;
  neg := 0;
  null := 0;
  writeln('Введите N:');
  readln(n);
  writeln('Введите N целых чисел:');
  for i := 1 to n do
   begin
    read(a);
    if(a < 0) then neg := neg + 1;
    if(a > 0) then pos := pos + 1;
    if(a = 0) then null := null + 1;
  end;
  writeln('Положительных чисел: ', pos);
  writeln('Отрицательных чисел: ', neg);
  writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3