Предмет: Информатика, автор: MargaritaMur

Найти минимальный элемент массива и его индекса (в паскале)

Ответы

Автор ответа: Aillianna
0

const

   n = 30;


var

   a: array [1..n] of integer;

   i, mini: integer;


begin

   for i := 1 to n do

   begin

       a[i] := random(30);

       write(a[i], ' ');

   end;

   writeln;

   mini := 1;

   for i := 1 to n do

       if a[i] < a[mini] then

           mini := i;

   writeln('A[', mini, ']=', a[mini]);

end.

Похожие вопросы
Предмет: Русский язык, автор: njfdhhc
Предмет: Математика, автор: tg160806