1 Тема від rock12

  • rock12
  • Користувач
  • Поза форумом
  • Дата реєстрації: 18.10.2012
  • Повідомлень: 3
    • Репутація: 0

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

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

2 Відповідь від Replace

  • Replace
  • Replace Team
  • Поза форумом
  • Звідки: Київ
  • Дата реєстрації: 06.04.2012
  • Повідомлень: 2 895
    • Репутація: 2107

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

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

Replace вебсайт

3 Відповідь від rock12

  • rock12
  • Користувач
  • Поза форумом
  • Дата реєстрації: 18.10.2012
  • Повідомлень: 3
    • Репутація: 0

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 Відповідь від Replace

  • Replace
  • Replace Team
  • Поза форумом
  • Звідки: Київ
  • Дата реєстрації: 06.04.2012
  • Повідомлень: 2 895
    • Репутація: 2107

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

Replace вебсайт

5 Відповідь від miroslav.chandler Востаннє редагувалося miroslav.chandler (18.10.2012 17:06:33)

  • Дата реєстрації: 03.08.2012
  • Повідомлень: 757
    • Репутація: 344

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

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

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

miroslav.chandler вебсайт