Первая задача: 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.
Writeln('Write x1,x2,x3 : '); Readln(x1,x2,x3); if x1>4 then writeln(sqrt(abs(sin(sqr(x1)-1)/cos(sqr(x1)-1))):10:20); if x1>=0 then if x1<=4 then writeln(-2*x1:10:20); if x1<0 then writeln(Exp(cos(x1)):10:20);
if x2>4 then writeln(sqrt(abs(sin(sqr(x2)-1)/cos(sqr(x2)-1))):10:20); if x2>=0 then if x2<=4 then writeln(-2*x2:10:20); if x2<0 then writeln(Exp(cos(x2)):10:20);
if x3>4 then writeln(sqrt(abs(sin(sqr(x3)-1)/cos(sqr(x3)-1))):10:20); if x3>=0 then if x1<=4 then writeln(-2*x3:10:20); if x3<0 then writeln(Exp(cos(x3)):10:20);
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadReal('a=');
Writeln('P=',4*a,', S=',a*a)
end.
Пример
a= 3.2
P=12.8, S=10.24