Этапы работы с одномерными массивами

1. Описание массива
   

   Const n=10;
   Var mas:array[1..n] of integer;

   Другой способ:
   

   Const n=10;
   Type MyArray=array [1..n] of integer;
   Var mas:array[1..n] of integer;   
   x:myarray;

2. Заполнение массива значениями
   А) с клавиатуры

   For i:=1 to n do Read(mas[i]);
   Readln;

   Б) из файла

   Assign(f,’f.txt’);
   Reset (f);
   For i:=1 to n do Read(f, mas[i]);

   В) случайными числами

   Randomize;
   For i:=1 to n do mas[i]:=random(90)+10;

   Г) по формуле

   For i:=1 to n do mas[i]:=2*i;

   Еще:

   mas[i]:=i*i;

   Еще:

   mas[i]:=mas[i-1]+mas[i-2];

3. Вывод элементов массива на экран

For i:=1 to n do Write(mas[i],’  ‘);
Writeln;

4. Обработка массива
   А) Поиск максимального, минимального

   max:=mas[1];
   For i:=2 to n do 
      If mas[i]>max Then max:=mas[i];
   Writeln(max,'-максимальное значение');

   Б) Поиск суммы всех элементов или удовлетворяющих условию
   

   sum:=0;
    For i:=1 to n do If mas[i] mod 2=0 Then sum:=sum+mas[i];
    Writeln(sum,'-сумма четных элементов массива');

   В) Сортировка по возрастанию, убыванию
   Г) Вставка, удаление элементов
   и др.

Пример:

Найти номер минимального элемента в массиве, состоящем из двузначных чисел.

Решение:

program z1;
  const n=10;
  var i,k,min:integer;
      a:array [1..n] of integer;
BEGIN
  randomize;
  for i:=1 to n do 
      a[i]:=random(90)+10;
  for i:=1 to n do 
      write(a[i]:3);
  writeln;
 
 min:=a[1]; k:=1;
 for i:=2 to n do
    if a[i]<min then 
        begin
           min:=a[i];
           k:=i;
        end;
 writeln(k,'-номер минимального');
 readln;
END.