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

Question

Информатика

Эллочка

5 декабря, 11:12

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

+1

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