1

Тема: Масив (парність та непарність)

Доброго дня!Допоможіть написати програму.
Якщо кількість елементів  масиву A(n) парна, то створити масив B, де В1=А1+А2, В2=А3+А4..., інакше знайти
кількість непарних елементів

2

Re: Масив (парність та непарність)

Щось самі пробували написати?

3

Re: Масив (парність та непарність)

так

program jf;
var k,i,j,n:integer;
a,b:array[1..50] of integer;
begin
writeln('vvdite kol elem massiva a');
readln(n);
writeln('vvedite elem massiva');
for i:=1 to n do
readln(a[i]);
k:=0;
j:=0;
if (n div 2=0) then
begin
j:=j+1;
b[j]:=a[i]+a[i+1];
i:=i+2;
writeln('massiv b');
for i:=1 to j do
writeln(b[i]);
end;
if (n mod 2=0) then

if (a[i] mod 2=0) then
k:=k+1;
writeln('kol=',k);
end.

4

Re: Масив (парність та непарність)

Якось так:

program jf;

var k,i,j,n:integer;
a,b:array[1..50] of integer;

begin
    writeln('vvdite kol elem massiva a');
    readln(n);

    writeln('vvedite elem massiva');
    for i:=1 to n do
        readln(a[i]);
    
    k:=0;
    j:=0;
    
    if (n mod 2=0) then
    begin
        
        for i:=1 to n div 2 do
            b[i] := 0;
        
        for i:=1 to n do
        begin
            b[(i + 1) div 2] := b[(i + 1) div 2] + a[i];
        end;
        
        writeln('massiv b');
        for i:=1 to n div 2 do
            writeln(b[i]);
    end
    else
    begin
        for i := 1 to n do
            if (a[i] mod 2 = 1) then
                k := k + 1;
        writeln('kol=', k);
    end;
        

end.
Подякували: leofun011

5

Re: Масив (парність та непарність)

дуже дякую!

6 Востаннє редагувалося miroslav.chandler (18.10.2012 18:06:33)

Re: Масив (парність та непарність)

мені здається, шо replace це якась кантора з кодерами :D і паскаль, і с, і пхп, да шей сео)

pew pew :D
Блоґ
Подякували: d4rkc10ud, Replace, Patron, leofun014