Едномерен масив

Едномерен масив

*Deklarirane na Tip Masiw

TYPE <ime na tip>=ARRAY[M..N] OF <tip na elementite>;

*Obqwqwane na promenlivi

VAR<spisuk s promenlivi>:<ime na tip masiv>;

*VUVEJDANE NA ELEMENTI

FOR I:=1 TO 10 DO

Begin

Write('A[',I,']=');

Readln(A);

End;

*Izvejdane na elementi

FOR I:=1 TO 10 DO

Writeln('A[',I,']=',A);

*Сумиране

S:=0

FOR I:=1 TO 10 DO

S:=S+A;

*Proizvedenie

P=1;

FOR I=1 TO 10 DO

P:=P*А;

*Broi na elementi

BR:=0

FOR I:=1 TO 10 DO

IF A=<uslovie> THEN

BR:=BR+1;

*Maksimalen element na masiw

MAX:=A[1];

FOR I:=2 TO 10 DO

IF A> Max Then

Max:=A;

*Minimalen Element Na masiw

Min:=A[1];

FOR I:=2 TO 10 DO

IF A<Min Then

Min:=A;