Задача MaxMin. Программа для поиска

program maxmin;

 uses crt;

 var a: array[1..5] of integer;   i,max,nmax,min,nmin:integer;

begin

 clrscr;

 for i:=1 to 5 do { ввод данных }

  begin    writeln ('Введите значение элемента');  

  readln (a[i]); 

  end;

for i:=1 to 5 do { выдача массива на экран }      writeln (a[i]:7);

    nmax:=1;   { задание начальных значений  }

    max:=a[1];

    nmin:=1;

   min:=a[1];

for i:=1 to 5 do{ нахождение минимума и максимума}

   if a[i]>max then  begin  max:=a[i]; nmax:=i;   end;

          if a[i]<min then  begin min:=a[i]; nmin:=i;  end;

end;

    writeln ('Максимальный элемент=',max);

    writeln ('Номер максимального элемента=',nmax);

    writeln ('Минимальный элемент=',min);

    writeln ('Номер минимального элемента=',nmin);

 repeat until keypressed;  end.

Содержание раздела

---