Срешением , заранее ! информация о футболистах вводиться также, как и для ниже (сначала n, потом n строк с данными вывести фамилию и имя футболиста, забившего наибольшее число голов и количество забитых им голов. например иванов василий 25

Если это не то могу завтра написать.

А)начало ->     ввод массива ->     ввод x ->     ввод y ->   если x> y   -> no-> end   -> yes->   p=0 ->   ∨->   если элемент массива (p)  >   x,  элемент массива (p)  =  x ->   если  элемент массива (p) < y, элемент массива (p) = y ->     p  =  p  +  1 -> если p больше размера массива         если  нет  ->   возврат на ∨       если да ->   вывод массива  ->   конец б)начало ->     ввод массива ->     p=0 ->   ∨->   если элемент массива (p) %(остаток от деления на) 3=0 -> yes-> -> no->   элемент массива (p) =элемент массива (p)%3 -> p=p+1 -> если p больше размера массива         если  нет  ->   возврат на ∨       если да ->   вывод массива  ->   конец        

Program project2;   {$apptype console} uses  sysutils; var a: array [0..9] of integer;     i,max,indx,tmp: integer; begin    randomize;     for i: =0 to 9 do    a[i]: =random(10);       for i: =0 to 9 do    write(a[i]: 3);     writeln;     max: =a[0];     indx: =0;     for i: =0 to 9 do    if a[i]> max then    begin      max: =a[i];       indx: =i;     end;     tmp: =a[0];   a[0]: =max;   a[indx]: =tmp;   for i: =0 to 9 do     write(a[i]: 3);   readln; end.