Способы задания элементов массива.

— Ввод с клавиатуры (когда они известны)

— Получение по формуле общей для всех элементов a[i]=f(i)

— Получение элементов массивов случайным образом (используя датчик случайных чисел)

Ввод и вывод массива производится поэлементно. Обычно для этого используется цикл с параметром, где в качестве параметра применяется индексная переменная.

Ввод массива с клавиатуры

Program vvod;

Var mas: array[1..100] of integer;

I, N: integer;

Begin write(‘введите количество элементов’);

readln (n);

For I:=1 to n do begin

Write (‘введите элемент массива ’, I);

Readln (MAS[ I ]);

End; end.

Ввод в столбец:

WRITELN(‘Введите кол-во эл. массива: ’);

Readln(N);

For I:=1 to N do

Begin

WRITE(‘A[‘,I,’]=’); Readln(A[I]);

end;

Ввод в строку (через пробел):

WRITELN(‘Введите кол-во эл. массива: ’);

Readln(N);

For I:=1 to N do

Read(A[I]);

Получение элементов массива по формуле

Program formula;

Var mas: array[1..100] of integer;

I,N: integer;

Begin write(‘введите количество элементов’);

readln (n);

For I:=1 to n do begin

MAS[ I ]:= I*2-4;

End;

Получение элементов массива случайным образом

Заполним массив из n элементов случайными числами от 1 до 100

write(‘введите количество элементов’);

readln (n);

randomize;

for i:=1 to n do

begin

a[i]:=random(100);

write(a[i]:4);

end;

Вывод элементов массива

Вывод в строку:

For I:=1 to N do

WRITE(A[I], ‘ ‘);

WRITELN;

Вывод в столбец:

For I:=1 to N do

WRITELN(‘A[‘,I,’]=’, A[I]);

Дата добавления: 2015-07-11