В массиве хранится информация о стоимости 1 кг 20 видов конфет. Определить, сколько…

varmin,i: integer; x: array [1… 1000] of integer; beginwriteln ('стоимость за 1 кг 20 видов конфет: '); for i: =1 to 20 do begin x[i]: =random (71)+20; write (x[i]: 4); end; min: =x[1]; writeln; for i: =2 to 20 do begin if min>x[i] then min: =x[i]; end; writeln ('самые дешевые конфеты стоят ',min); end.