Даны 7 чисел.Найти максимальное из них. ** экран вывести разность между большим и всеми...

Question

Даны 7 чисел.Найти максимальное из них. На экран вывести разность между большим и всеми исходными числами. СРОЧНО ПОМОГИТЕ ПО ИНФОРМАТИКЕ

Answer 1

Program test;
Var
  n, j, max: integer;
  Numb: array[1..7] of integer;
Begin
  max := Numb[1];
  n := 1;
  for j:=2 to 7 do
  begin
      if count[j]>max then
      begin
         max := count[j];
         n:=j;
      end;
   end;
   for j:=2 to 7 do writeln ('j= ', max-count[j]);
end;
end.