Сформировать массив целых чисел, состоящих из 15 элементов, на промежутке [-20; 20]. И найти минимальный элемент массива и его индекс.

Question

Информатика

Петюня

2 октября, 08:35

Сформировать массив целых чисел, состоящих из 15 элементов, на промежутке [-20; 20]. И найти минимальный элемент массива и его индекс.

+2

Ответы (2)

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

Машара · Answer 1

Program massiv;

var mass:array[1 ... 15] of integer;

i, j, a:integer;

begin

j:=mass[1];

for i:=1 to 15 do begin

mass[i]:=random (40) - 20;

writeln (mass[i]:3) ;

if mass[i]
j:=mass[i];

a:=i;

end;

end;

writeln ('mass[', a,']=', j) ;

end.

Изяслав · Answer 2

Var A: array [1 ... 15] of integer;

i, min, index: integer;

begin

min:=A[1];

for i:=1 to 15 do

begin

A[i]:=random (41) - 20;

write (A[i], ' ') ;

end;

writeln;

for i:=1 to 15 do

begin

if min>A[i] then

begin

min:=a[i];

index:=i;

end;

end;

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

writeln ('Его индекс = ', index) ;

end.