Question

Написать программу (Паскаль)
В массиве хранится информация о стоимости 1 кг 20 видов конфет. Определить, сколько стоят самые дешёвые конфеты . Если таких несколько, то должен быть найден индекс первого из них .

Answer 1

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.