одномерный массив

[paladinn]

Найти элементы , модуль которого меньше всего отличается от 5 , номер первого такого элемента.
Найти числа которые имеют наибольший остаток при делении на 5 и сообщ этот остаток.

[NSvirus]

1)
var
 mas:array[1..15] of integer;
 i,per1,per2,rez,number:integer;
begin
 for i:=1 to 15 do
   read(mas[i]);
   per1:=abs(5-mas[1]) ;
   number:=1;
 for i:=2 to 15 do
   begin
      per2:=abs(5-mas[i]);
      if per1>per2 then
       begin
         per1:=per2;
         rez:=mas[i];
         number:=i;
       end;
      if ((i=9)and(m=abs(5-mas[1]))) then rez:=mas[1];
   end;
  writeln('element-',rez, 'number element=',number);
  readln;
end.