Лекция: Program msg1;

const n=15; {число элементов массива}

Var

a:array[1..n] of real;

summa:real;

Begin

summa:= 0;

for i:=1 to n

Do begin

readln(a[i]);

summa:=summa+a[i]

End;

writeln(‘сумма ’,n,‘ элементов массива равна ’,summa)

End.

2. {Программа поиска наибольшего элемента одномерного массива и его порядкового номера}

Program msg;

const n=20;

Var

a:=array[1..n] of real;

amax: real;

i,ne:integer;

Begin

write(’введите элемент 1 ’);

readln (a[1]);

amax := a[1]; ne:=1;

for i:=2 to n

Do begin

write (’введите элемент № ’, i);

readln (a[i]);

if a[i]>amax

Then begin

amax:=a[i];

ne:=i

End

End;

writeln (’максимальный элемент равен ’, amax);

writeln (’и имеет порядковый номер ’, ne)

End.

3. {Программа нахождения произведения двух матриц A размером M*N и B размером N*K. Элементы результирующей матрицы C размером M*K рассчитываются по формуле. Значения M, N, K не превышают 10}