Помогите пожалуйста решить 2 номера, буду очень благодарна

Спасибо большое

Раз в обоих заданиях известно количество элементов в массиве, то имеет смысл использовать цикл  for.Задание №1const n=20;var  a:array[1..n] of integer;  i,s:integer;begin  s:=0;  for i:=1 to n do begin    a[i]:=random(1001);    if a[i] mod 10 = 4 then s:=s+1;  end;  writeln(s);end.Задание №2const n=20;var  a:array[1..n] of integer;  i,max,nmax:integer;begin  max:=0;  for i:=1 to n do begin    a[i]:=random(1001);    if a[i] >max then begin       nmax:=i;      max:=a[i];    end;    write(a[i]:5);  end;  writeln;  writeln(nmax,' ',a[nmax]);end.