// PascalABC.NET 3.0, сборка 1088
var
n,i,max,min,s,t,k:integer;
begin
Write('Введите количество членов последовательности: ');
Read(n);
Writeln('Вводите числа через пробел');
max:=-32768; min:=32767; s:=0; k:=0;
for i:=1 to n do begin
    Read(t);
    if t<min then min:=t
    else
      if t>max then max:=t;
    if t<0 then begin s:=s+t; Inc(k) end
    end;
Writeln('Min=',min,', max=',max,', ср.арифм.=',s/k:0:5)
end.

<em><u>Тестовое решение:</u></em>
Введите количество членов последовательности: 7
Вводите числа через пробел
25 -6 39 -118 271 24 -15
Min=-118, max=271, ср.арифм.=-46.33333

0 0

4 года назад

Вычислить(1+sin0.1)(1+sin0.2) ... (1+sin10) для Free Pascal. Помогите!!!!

timan70 [3.7K]

Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.

0 0

4 года назад

Срочно , халява почти . придумайте пароль

Латентная [4]

Подобные этим паролям:
Parol_43
Shapka_7
13_Moroz

0 0

2 года назад

Прочитать ещё 2 ответа