Одномерные массивы

Бірөлшемді массив

Өз поезыңды жина

МАССИВ

• Массив - бір типтес және жалпы атауы бар деректердің жиынтығы;
• • Массив элементі - массивке енетін жеке айнымалы болып табылады;
• • Массив өлшемі - массивтің құрамында енетін элементтердің саны.
• Массив элементінің индексі - массивтің элементінің номері;

Массивті жариялау:

<идентификатор>: array [<индексотер диапазоны >] of <элемент типі >;

Тип сипаттамасы бөлімін қолданып массивтерді жриялау мысалы:

• Массивті жариялау мысалы:

Var

a : array [1..50] of real;

b,c : array [1..20] of integer;

• Тип сипаттамасы бөлімін қолданып массивтерді жриялау мысалы:

Type

mas1=array[1..50] of real;

mas2=array[1..20] of integer;

Var

a : mas1;

b,c : mas2;

…

Массивтің элементтерін енгізу және шығару

Var

a : array [1..10] of integer;

i : integer;

Begin

writeln (‘A[10] массив элементтерін егізу ‘);

for i:=1 to 10 do

begin

write (‘a[‘, i , ‘] =‘);

read (a[ i ]);

end;

writeln (‘массив элементтерін шығару’);

for i:=1 to 10 do

write (a[ i ]:6);

End.

Жиынды кездейсоқ сандармен толтыру.

{$APPTYPE CONSOLE} 

Uses Windows, SysUtils;

Var

a : array [1..15] of integer;

i : integer;

Begin

randomize;

writeln (‘A[15] массивті -100 ден 100 аралығындағы кездейсоқ сандармен толтыру.‘);

for i:=1 to 15 do

begin

a[ i ]:=random(201)-100;

write (a[ i ]:6);

end

End.

Массив элементтерінің қосындысын табу.

{$APPTYPE CONSOLE} 

Uses Windows, SysUtils;

Var

a : array [1..20] of integer;

s, i : integer;

Begin

writeln (‘A[20] массивінің элементтерін бүтін сандармен толтыру ‘);

for i:=1 to 20 do

begin

write (‘a[‘, i , ‘] =‘);

read (a[ i ]);

end;

s:=0;

for i:=1 to 20 do

s:=s+a[ i ];

writeln (‘s=‘,s)

End.

Массивтің кейбір элементтерінің мәндерін өзгерту.

Массивтің кейбір элементтерінің мәндерін өзгерту.

program Project2; {$APPTYPE CONSOLE} 

Uses Windows, SysUtils;

Const

n=20;

Var

a : array [1..n] of integer;

i : integer;

Begin

writeln (‘ Заполнение элементов целочисленного массива A[‘,n,’] ‘);

for i:=1 to n do

begin

write (‘a[‘, i , ‘] =‘);

read (a[ i ]);

end;

for i:=1 to n do

if a[ i ]<0 then

a[ i ]:=-a[ i ];

wreteln (‘Массив A с замененными отрицательными эл-ми’);

for i:=1 to n do

write (a[ i ]:5)

End.

Берілген шартты қанағаттандыратын элементтердің санын анықтау

Берілген шартты қанағаттандыратын элементтердің санын анықтау

program Project3;

 {$APPTYPE CONSOLE}

Uses Windows, SysUtils;

Type

massiv=array[1..20] of real;

Var

a : massiv;

t : real;

k,i : integer;

Begin

writeln (‘ Введите элементы

массива A ‘);

for i:=1 to 20 do

begin

write (‘a[‘, i , ‘] =‘);

read (a[ i ]);

end;