Составить программу на языке Паскаль.

а) Вычислить среднее арифметическое элементов массива А (20) равных за данному числу а.

б) Вычислить произведение модулей элементов массива А (20).

Первая задача:

var

i, c, sum: shortint;

sr: real;

m: array[1 ... 20] of shortint;

begin

sum : = 0;

readln (c) ;

for i : = 1 to c do

begin

readln (m[i]) ;

sum : = sum + m[i];

end;

sr : = sum / c;

sr : = round (sr * 100) / 100; / / если округлять не нужно, удали эту строчку

writeln ('Среднее арифметическое: ', sr) ;

end.

Вторая задача:

var

i, c: shortint;

p: integer;

m: array[1 ... 20] of shortint;

begin

p : = 1;

readln (c) ;

for i : = 1 to c do readln (m[i]) ;

for i : = 1 to c do p : = abs (p * (m[i])) ;

writeln ('Произведение всех модулей массива: ', p)

end.