Обработка массивов

Задача 2.1 Найти сумму элементов массива

Const

N = 5;

Var

A: array[1..N] of Integer;

I, Sum: Integer;

Begin

{ввод элементов}

for I:=1 to N do

Begin

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

ReadLn(A[I]);

End;

Sum:=0;

for I:=1 to N do

Sum:=Sum+A[I];

Writeln(‘Сумма равна ’,Sum);

End.

В программе определяется константа N=5 – наибольший индекс (номер) элемента в массиве А, затем задаётся тип (целый) для массива А размерностью от 1 до N, номера элемента I, и суммы Sum. В основном блоке с помощью оператора for перебираются и вводятся все элементы (оператором read), затем задаётся начальное значение суммы Sum:=0, затем в цикле for от 1 до N все элементы массива прибавляются к начальной сумме Sum:=Sum +A[I]. После вывода суммы на экран программа завершается.

Задача 2.2 Вывести номера строк матрицы А, которые содержат нулевой элемент и произведение элементов 4-го столбца, больших 2..

Const

P:=1

Var

A: array[1..5,1..7] of Byte;

I, J: Byte;

Begin

{инициализация генератора случайных чисел}

Randomize;

{заполнение и печать матрицы}

for I:=1 to 5 do

Begin

for J:=1 to 7 do

Begin

A[I,J]:=Random(15);

Write(A[I,J]:4);

End;

WriteLn;

End;

WriteLn;

for I:=1 to 5 do

for J:=1 to 7 do

if A[I,J]=0 then

Begin

Write('I=',I);

Break;

End;

if A[I,4]>2 then

Begin

P:=P*A[I,4];

End;

Write('P[I,4] =',P);

WriteLn;

End.