Помогите с информатикой

+ 0 -

Zzzvezda

29 янв. 2015 г., 14:03:50 (9 лет назад)

var
a,s,i:integer;
begin
s:=0;
for i := 1 to 10 do
begin
read(a);
s:=s+a;
end;
write(s);
end.

var
a:array[1..15] of integer;
i,p:integer;
s:real;
begin
p:=1;
for i := 1 to 15 do
begin
read(a[i]);
s:=s+a[i];
p:=p*a[i];
end;
s:=s / 15;
writeln(a[7]+a[1]);
writeln(a[9]-a[3]);
writeln(s:5:3);
writeln(p);
end.

var
p,h,sum,s,i,n:integer;
a:array of integer;
begin
readln(n);
selength(a,n);
p:=1;
for i := 1 to n do
begin
read(a[i]);
if odd(i) then
p:=p*a[i];
end;
for i := 1 to n div 2 do
begin
sum:=sum+a[i];
s:=s+a[i*2];
if not odd(a[i*2]) then
h:=h+a[i*2];
end;
writeln(sum);
writeln(s);
writeln(p);
writeln(h);
end.

var
a:array[1..9] of real;
s,p:real;
i:integer;
begin
p:=1;
for i := 1 to 9 do
begin
read(a[i]);
s:=s+a[i];
p:=p*a[i];
end;
writeln(s:5:3);
writeln((s/9):5:3);
writeln(p:5:3);
end.