Дан массив из 10 вещественных чисел. Найти min элемент и его номер

Question

Информатика

Артемей

25 января, 10:02

Дан массив из 10 вещественных чисел. Найти min элемент и его номер

+3

Ответы (1)

Знаете ответ на вопрос?

Марьяна · Answer 1

uses crt;

var mas: array[1 ... 10] of integer;

i, min, ind: integer;

Begin

randomize;

For i:=1 to 10 do

Begin

mas[i]:=Random (40) + 20;

write (mas[i], ' ') ;

End;

writeln () ;

writeln () ;

min:=mas[1];

For i:=1 to 10 do

Begin

If (min>mas[i]) then

Begin

min:=mas[i];

ind:=i;

End;

End;

write ('Минимальный элемент массива: ', min, ', находится на ', ind, ' месте') ; End.