Задача в паскале

[Varvara]

Задача в паскале

Доброгов ремени суток всем!

Нужна помощь в решении задачи за 10 класс . Дан одномерный массив А (47 88 56 12 55 33 67 11 89 10 34 0 35 75 13 4) из него нужно сформировать массив B, каждый элемент которого - сумма четырех элементов массива А.

т.е. массив B (203 166 133 127)

 

[Vladimir_S]

Доброгов ремени суток всем!

Нужна помощь в решении задачи за 10 класс . Дан одномерный массив А (47 88 56 12 55 33 67 11 89 10 34 0 35 75 13 4) из него нужно сформировать массив B, каждый элемент которого - сумма четырех элементов массива А.

т.е. массив B (203 166 133 127)

Да пожалуйста:

CONST
 N=4;
VAR
 A:ARRAY[1..N*4] of INTEGER;
 B:ARRAY[1..N] of INTEGER;
 i,j:INTEGER;
BEGIN
 For i:=1 to N do
  B[i]:=0;
 RANDOMIZE;
 For i:=1 to N*4 do
  A[i]:=Random(1000);
 For i:=1 to N do
  For j:=1 to 4 do
   B[i]:=B[i]+A[(i-1)*4+j];
 For i:=1 to N*4 do Write(A[i]:4);
 WriteLn;
 For i:=1 to N do Write(B[i]:6);
 WriteLn;
 ReadLn;
END.

Или нужен именно тот массив, что в условии? Тогда так:

CONST
 A:ARRAY[1..16] of INTEGER=(47, 88, 56, 12,
                            55, 33, 67, 11,
                            89, 10, 34,  0,
                            35, 75, 13,  4);
VAR
 B:ARRAY[1..4] of INTEGER;
 i,j:INTEGER;
BEGIN
 For i:=1 to 4 do
  B[i]:=0;
 For i:=1 to 4 do
  For j:=1 to 4 do
   B[i]:=B[i]+A[(i-1)*4+j];
 For i:=1 to 16 do Write(A[i]:4);
 WriteLn;
 For i:=1 to 4 do Write(B[i]:6);
 WriteLn;
 ReadLn;
END.

 

[Varvara]

Спасибо большое! Очень выручили!