Массив заполнить случайным образом целыми числами [-14; 40] найдите минимальный индекс

Question

Информатика

Констанция

22 сентября, 10:07

Массив заполнить случайным образом целыми числами [-14; 40] найдите минимальный индекс

+4

Ответы (1)

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

Довмонт · Answer 1

Var

A:array[1 ... 33] of integer;

i, n:integer;

Begin

For i: = 1 to 33 do

Begin

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

Write (A[i],' ') ;

End;

n:=1;

For i: = 2 to 33 do

if A[i]
WriteLn;

WriteLn ('Индекс минимального элемента массива: ', n) ;

End.