В массиве хранится информация о стоимости 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.