Составить программу на языке паскаль. а) вычислить среднее арифметическое элементов массива а(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.
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.