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

Question

Информатика

Потапий

14 января, 06:35

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

+5

Ответы (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.