Премини към съдържанието
  • публикации
    5
  • коментари
    0
  • прегледи
    2912

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

BoReTo

648 прегледа

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

*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 Коментара


Препоръчани коментари

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

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

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

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

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

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

Вход

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

Вход

×

Информация

Този сайт използва бисквитки (cookies), за най-доброто потребителско изживяване. С използването му, вие приемате нашите Условия за ползване.