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

Varvara · 22.09.2010, 20:54

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

Нужна помощь в решении задачи за 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 · 22.09.2010, 21:26

Цитата:

Сообщение от Varvara

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

Нужна помощь в решении задачи за 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 · 22.09.2010, 23:50

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

22.09.2010, 20:54	#1 (permalink)
Varvara Новичок Регистрация: 22.09.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача в паскале Доброгов ремени суток всем! Нужна помощь в решении задачи за 10 класс . Дан одномерный массив А (47 88 56 12 55 33 67 11 89 10 34 0 35 75 13 4) из него нужно сформировать массив B, каждый элемент которого - сумма четырех элементов массива А. т.е. массив B (203 166 133 127)

22.09.2010, 20:54
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ваша тема очень схожа с некоторыми топиками на форуме, которые вы скорее всего не просмотрели Задача на массивы в Паскале Задача на Паскале и С++ Задача на Паскале Задача на Паскале

22.09.2010, 23:50	#3 (permalink)
Varvara Новичок Регистрация: 22.09.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо большое! Очень выручили!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070