Массив (сумма положительных, ср. арифмет, геометр.)

Посмотреть архив целиком
program massiv;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:array[1..100] of integer;
i,n,sum,k,proizv:integer;
arif,geom:double;
begin
repeat writeln('Vvedite kolichestvo elementov massiva');
readln(n);
until (n>0) and (n<=100);
writeln('Vvedite massiv');
for i:=1 to n do read (a[i]);
readln;

k:=0;
sum:=0;
proizv:=1;
for i:=1 to n do
if a[i]>0 then begin
k:=k+1;
sum:=sum+a[i];
proizv:=proizv*a[i];
end;
if k=0 then writeln ('Polizitelnix elementov net')
else begin
writeln('Summa polizitelnix elementov ravna ',sum,' , ix kolichestvo ravno ',k);
arif:=sum/k;
writeln('Srednee arifmeticheskoe ',arif:0:2);
writeln('proizvedenie polozhitelnix elementov ravno ',proizv);
geom:=exp((1/k)*ln(proizv));
writeln('Srednee geometricheskoe ravno ',geom:0:3);
end;


readln;

end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.