В массиве хранится информация о стоимости 1 кг 20 видов конфет. Определить, сколько стоят самые дешёвые конфеты.
В массиве хранится информация о стоимости 1 кг 20 видов конфет. Определить, сколько стоят самые дешёвые конфеты.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы