Определить максимальный и минимальный элементы массива - Turbo Pascal

Формулировка задачи:

В произвольном числовом массиве определить максимальный и минимальный элементы и выдать номера по которым они расположеныю

Код к задаче: «Определить максимальный и минимальный элементы массива - Turbo Pascal»

textual
Const N = 10;
Var
  min,max,i : Byte;
  m : array[1..N] of Integer;
...
  max:=1; min:=1;
  For i:=2 to N do
  Begin
    If m[i]<m[min] then min:=i;
    If m[i]>m[max] then max:=i;
  End;
Writeln(min,',',max);
Writeln(m[min],',',m[max]);
...

11   голосов, оценка 4.091 из 5


СОХРАНИТЬ ССЫЛКУ