• публикации
    5
  • коментари
    0
  • прегледи
    2813

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

BoReTo

590 прегледа

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

*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;




0 Коментара


Все още няма коментари.

Регистрирайте се или влезете в профила си за да коментирате

Трябва да имате регистрация за да може да коментирате това

Регистрирайте се

Създайте нова регистрация в нашия форум. Лесно е!


Нова регистрация

Вход

Имате регистрация? Влезте от тук.


Вход