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

Question

Информатика

Мелана

2 мая, 10:44

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

+5

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