Question

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

Answer 1

var
min,i:integer;
x: array [1..1000] of integer;
begin
writeln('стоимость за 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.