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

147

203

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

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

wut123

Информатика

4,8(18 оценок)

//pascal var a: array [1..10] of byte; i, min, minid: byte; begin randomize; min : = 100; for i : = 1 to 10 do begin a[i] : = random(20) + 1; if a[i] < min then begin min : = a[i]; minid : = i; end; write(a[i], ' '); end; writeln; writeln('минимальный элемент a[',minid,'] = ', min); readln; end.