9. Работа с массивами

Программа обработки массива

uses crt;

var

    (*Описание массива*)

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

    n: integer;

    sum: real;

    i: integer;

begin

    write('Количество элементов: ');

    readln(n);

    (*Заполнение массива*)

    for i := 1 to n do

        a[i]:= random(10);

    (*Печать  массива*)

    for i := 1 to n do

         write(a[i]:3);

         writeln;

    (*Обработка массива*)

    sum := 0;

    for i := 1 to n do

        sum := sum + a[i];

    writeln('Сумма элементов: ', sum);

end.

Результат выполнения программы: