Написать программу (Паскаль)
В массиве хранится информация о стоимости 1 кг 20 видов конфет. Определить, сколько стоят самые дешёвые конфеты . Если таких несколько, то должен быть найден индекс первого из них .
Ответы
Ответ дал:
0
program test;
var a:array [1..20] of integer;
min, i, imin: integer;
begin
min:=a[19];
imin:=19;
for i:=1 to 20 do begin
a[i]:=random (151)+150;
write (a[i]:4);
end;
writeln;
for i:=19 downto 1 do begin
if a[i]<min then begin imin:=i; min:=a[i]; end;
end;
write (imin);
writeln;
write (a[imin]);
end.
lol19703685:
Он делает мин 19 постоянно
var a:array [1..20] of integer;
min, i, imin: integer;
begin
for i:=1 to 20 do begin
a[i]:=random (151)+150;
write (a[i]:4);
end;
min:=a[20];
imin:=20;
writeln;
for i:=19 downto 1 do begin
if a[i]end;
write (imin);
writeln;
write (a[imin]);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
7 лет назад