Очень нужна ваша помощь 20 баллов Паскаль Найти наименьший элемент одномерного...

Question

Очень нужна ваша помощь 20 баллов Паскаль Найти наименьший элемент одномерного массива, состоящего из 9 элементов. Элементы вводятся с клавиатуры.

Answer 1

Ответ:

var a:array[1..9] of integer;

   min:integer;

   i:integer;

begin

    writeln('введите 9 элементов массива');

    min:=MaxInt;

    for i:=1 to 9 do begin

       readln( a[i] );

       if min > a[i] then min:=a[i];

    end;

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

end.

---