Составьте программу, которая заполняет массив a случайными целыми числами в диапазоне от 1 до 20 и находит минимальный элемент массива и его индекс

186

479

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

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

zdiana1

Информатика

4,7(12 оценок)

Var a: array[1..100] of integer; min, minz, i: integer; begin randomize; minz: =30; for i: =1 to 10 do a[i]: =random(20)+1; for i: =1 to 10 do if minz> a[i] then begin minz: =a[i]; min: =i; end; for i: =1 to 10 do write(a[i],' '); writeln(); writeln(minz,' ',min); end.