Ветвление (Pascal)

[Павлик_]

Определить максимум из пяти чисел Найти произведение четырёх остальных чисел.Четырьмя способами While, Repeat, For и do

const
  N=5;{количество чисел}
var
  a:array [1..N] of integer;
  i,m,pr:integer;
begin
  for i:=1 to N do
  begin
    Write('a[',i,']:=');
    ReadLn(a[i]);
    if i=1 then
      m:=i;
    if a[i]>a[m] then
      m:=i
  end;
  pr:=1;
  for i:=1 to N do
    if i<>m then
      pr:=pr*a[i];
  WriteLn('Максимальное число: ',a[m],' Произведение остальных: ',pr)
end.

НАЙТИ ДВУМЯ СПОСОБАМИ Downto и WHILE

[Stilet]

Downto

Ну замени for i:=1 to N do на for i:=N downto 1 do

WHILE

Обычно это так оформляется:

 i:=1;while(i<=N) do begin
  ....
  inc(i);
 end;

Там где точки вставляй код, который в цикле. а inc(i) после него в самом конце цикла.