3784495069

Algorytm Min w postaci programu

Program w języku Pascal

program Min;    <-

var i,imin,min,n,x:integer;

begin    <-

read(n);    <-

read(x); min:=x; imin:=l; <— for i:=2 to n do begin <— read(x);    <-

if min > x then begin

min:=x; imin:=i

end <-

end;    <-

write (imin,min) <-

end.    <-

informatyka +

nazwa programu deklaracje, typy zmiennych blok programu - początek czytaj n

czytaj pierwszy element iteracja od 2 do n czytaj kolejny element instrukcja warunkowa popraw min instrukcja war. - koniec iteracja - koniec pisz wynik

blok programu - koniec

15