Извлечение сохраненной информации для дальнейшего использования

174

419

Посмотреть ответы 1

Ответы на вопрос:

ascor3337

Информатика

4,4(28 оценок)

Const n=10; var i,im: integer; a: array[1..10] of integer; begin randomize; im: =1; for i: =1 to n do begin a[i]: =random(21)+1; write(a[i],' '); if a[i]< a[im] then im: =i end; writeln; writeln('минимальный элемент a[',im,']=',a[im]) end. пример 20 13 16 7 9 4 21 13 2 10 минимальный элемент a[9]=2