Технический форум - Задача в паскале

Цитата:

Сообщение от Varvara (Сообщение 394988)

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

Нужна помощь в решении задачи за 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.