Алфавит племени мульти состоит из 8 символов вождь племени говорит со скоростью 20 символов в минуту какова в этом случае скорость информационного потока. с решением ​

Const 
  N = 15;

var
  mas:array[1..15] of integer;
  i, max1, max2, min, c, d:integer;

begin
  c:=-1;
  max1:=-maxint;
  min:=maxint;
  max2:=-maxint;
  randomize;
  for i:=1 to N do
    mas[i]:=random(101)-50;
  write('Массив: ');
  for i:=1 to N do
    write(mas[i], ' ');
  writeln;
  for i:=1 to N do
  begin
    if (mas[i]>0) AND (mas[i]>max1) then
      max1:=mas[i];
   if (mas[i] mod 2 <> 0) AND (max2<mas[i]) then
   begin
     c:=i;
     max2:=mas[i];
   end;
   if (mas[i] mod 2 <> 0) AND (min>mas[i]) then
   begin
     d:=i;
     min:=mas[i];
   end;
  end;
  writeln('Максимальный положительный элемент: ',max1);
  writeln('Минимальный нечетный элемент: ',min);
  writeln('Максимальный нечетный элемент: ',max2);
  if c<d then
    writeln('Максимальный элемент стоит раньше')
  else
   writeln('Минимальный элемент стоит раньше');
end.

1)
const
n=10;
var
a:array[1..n]of integer;
i,k:integer;
begin
        for i:=1 to n do
             begin
                 readln(a[i]);;;
                     if a[i]mod 5=0 then
                          k:=k+1;
             end;
writeln;
writeln(k);
end.

2)
const
n=10;
var
a:array[1..n]of integer;
i,S:integer;
begin
        for i:=1 to n do
             begin
                 a[i]:=random(21)-10;
                  write(a[i]:4);
                     if (abs(a[i]mod 10)=3) then
                          S:=S+a[i];
             end;
writeln;
writeln(S);
end.