Масиви

1) Читаємо що таке масив

http://uk.wikipedia.org/wiki/%D0%9C%D0%B0%D1%81%D0%B8%D0%B2_%28%D1%81%D1%82%D1%80%D1%83%D0%BA%D1%82%D1%83%D1%80%D0%B0_%D0%B4%D0%B0%D0%BD%D0%B8%D1%85%29


Опис
Var a:array[1..100] of integer;
i, n:integer;//індекс, кількість елементів


Введення
readln(n);
for i:=1 to n do read(a[i]);

Виведення
for i:=1 to n do write(a[i],' ');


Сумування
s=0;
for i:=1 to n do s:=s+a[i];


Пошук
readln(k);
for i:=1 to n do if  a[i]=k then writeln(i);

Пример решения задачи с использованием массивов Паскаля

Задача: даны два n -мерных вектора. Найти сумму этих векторов.
Решение задачи:

• Входными данными в этой задаче будут являться два одномерных массива. Размер этих массивов может быть произвольным, но определенным. Т.е. мы можем описать заведомо большой массив, а в программе определить, сколько элементов реально будет использоваться. Элементы этих массивов могут быть целочисленными. Тогда описание будет выглядеть следующим образом:
  
  var a , b : array [1..100] of integer ;
• Выходными данными будут элементы результирующего массива, назовем его c . Тип результирующего массива также должен быть целочисленным.
• Кроме трех массивов нам потребуется переменная – параметр цикла и индекс массива, назовем ее i , а также переменная n для определения количества элементов в каждом массиве.

Ход решения задачи:

• определим количество элементов (размерность) массивов, введем значение n ;
• введем массив a ;
• введем массив b ;
• в цикле, перебирая значения индекса i от 1 до n , вычислим последовательно значения элементов массива c по формуле:
  c [ i ]= a [ i ]+ b [ i ];
• выведем на экран полученный массив.

Текст программы :
Пример программы суммирования векторов

Program summa;
Var
   a, b, c: array [1..100] of integer;
   I, n: byte;
Begin
   Write (‘введите размерность массивов:’);
   Readln(n);
   For i:=1 to n do
      Readln (a[i]); { ввод массива a}
   For i:=1 to n do
      Readln (b[i]); { ввод массива b}
   For i:=1 to n do
      C[i]:=a[i]+b[i]; { вычисление суммы массивов }
   For i:=1 to n do
      write (c[i],’ ‘); { вывод массива с }
end.