Имеется целочисленный массив состоящий из N элементов (N - чётное) а)Найти сумму первых...

Question

Имеется целочисленный массив состоящий из N элементов (N - чётное) а)Найти сумму первых N/2 элементов. б)Найти сумму элементов стоящих на чётных позициях. в) Найти произведение элементов стоящих на нечётных позициях. г) Найти сумму чётных элементов стоящих на чётных позициях.

Answer 1

а)
uses crt;
var n,i,sum:integer;
a:array[1..100] of integer;
begin
writeln('N?');
read(n);
writeln('Элементы?');
for i:=1 to n do
read(a[i]);
for i:=1 to n div 2 do
sum:=sum+a[i];
writeln(sum);
end.
б)
uses crt;
var n,i,sum:integer;
a:array[1..100] of integer;
begin
writeln('N?');
read(n);
writeln('Элементы?');
for i:=1 to n do
begin
read(a[i]);
if i mod 2=0 then 
sum:=sum+a[i];
end;
writeln(sum);
end.
в)
uses crt;
var n,i,mult:integer;
a:array[1..100] of integer;
begin
mult:=1;
writeln('N?');
read(n);
writeln('Элементы?');
for i:=1 to n do
begin
read(a[i]);
if i mod 2<>0 then
mult:=mult*a[i];
end;
writeln(mult);
end.
г)
uses crt;
var n,i,sum:integer;
a:array[1..100] of integer;
begin
writeln('N?');
read(n);
writeln('Элементы?');
for i:=1 to n do
begin
read(a[i]);
if (i mod 2=0) and (a[i] mod 2=0) then 
sum:=sum+a[i];
end;
writeln(sum);
end.

Comments

Все протестировал.