Оператор присваивания.

А[1]:=3;

А[2]:=4;

........

или

B[1]:=’Иванов’;

B[2]:=’Петров’;

........

Такой способ задания значений используется, если массив небольшой.

Оператором ввода с клавиатуры.

For i:=1 to 10 do

begin

Writeln(‘введите ’,i,’-ый элемент массива’);

Readln(a[i]);

{в качестве индекса используется параметр цикла }

end;

Этот способ задания значений также используется для небольших массивов.

Заполнение массива с использованием генератора случайных чисел.

.......

RANDOMIZE;

For i:=1 to 10 do

a[i]:=Random(x);

…....

{массив заполнится целыми числами в диапазоне от 0 до Х}

Заполнение по формуле.

Каждый элемент массива должен быть рассчитан по формуле (например a_i=sin i - cos i)

for i:=1 to 10 do

a[i]:=sin(i)-cos(i);

Вывод массива.

For i:=1 to 10 do writeln(a[i]);

Вывод пятого элемента массива записывается так : write(a[5]);

Алгоритмы работы с массивами

Сумма элементов массива.

Program symma;

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

i, s : integer;

begin

s:=0;

for i:=1 to 10 do

begin

readln(a[i]);

s:=s+a[i];

end;

writeln (‘Сумма= ’,s);

еnd.

Сумма положительных чисел.

Program symma2;

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

i, s : integer;

begin

s:=0;

for i:=1 to 10 do

begin

readln(a[i]);

if a[i]>0 then s:=s+a[i];

end;

writeln (‘Сумма положительных чисел = ’,s);

еnd.

Сумма и количество положительных чисел.

Program symma-kol;

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

i, s,k : integer;

begin

s:=0; k:=0;

for i:=1 to 10 do

if a[i]>0 then begin k:=k+1; s:=s+a[i]; end;

writeln (‘Сумма ’,s, ‘ количество’, k);

еnd.