Question

Составьте программу нахождения минимального элемента в массиве А(10).

Answer 1

Ответ:

См. объяснение.

Объяснение:

Program minimalniielement;

Var i: integer;

   min: real;

   A: array [1..10] of real;

Begin

 Writeln('Введите 10 элементов массива: ');

 min:=0;

 for i:=1 to 10 do

   begin

     Write('A[',i,']= ');

     Readln(A[i]);

     if A[i]<min then min:=A[i];

   end;

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

 Readln;

End.

0f112b006a379f542c2308759dfbdcc5.pas