Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа и вычислить сумму первых 4-х чисел.

@mriceMan · Регистрация: 30.11.2009

Студворк — интернет-сервис помощи студентам

Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа и вычислить сумму первых 4-х чисел.

На С++ уже бы написал, но паскаль не знаю. Помогите плз, заранее спасибо!

@Dekio · 16.01.2011, 14:23

Pascal

for i:=1 to 4 do
sum1:=sum+arr[i];
for i:=5 to n do
sum2:=sum+arr[i];
writeln(sum1:4,sum2:4);

@mriceMan · 16.01.2011, 14:32 **[ТС]**

Спасибо большое за алгоритм! Но как задача будет выглядеть полностью. Просто я паскаль вообще не изучал (только C++) и синтаксис вообще не знаю. А тут потребовалось решить эту задачу на паскале. Если тебе не сложно не мог бы написать листинг проги, что называется от А до Я.

@Dekio · 16.01.2011, 15:13

Pascal

program Dekio;
const
n=10;
var
arr :array[1..n] of integer;
i,sum1,sum2 :integer;
begin
randomize;
for i:=1 to n do
begin
arr[i]:=random(15);
write(arr[i]:4);
end;
for i:=1 to 4 do
inc(sum1,arr[i]);
for i:=5 to n do
inc(sum2,arr[i]);
writeln;
writeln('Первых 4-х ',sum1,' Остальных ',sum2);
end.

@mriceMan · 16.01.2011, 15:17 **[ТС]**

Спасибо огромное!

@mriceMan 0 / 0 / 0 Регистрация: 30.11.2009 Сообщений: 18
		1
	Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа и вычислить сумму первых 4-х чисел. 16.01.2011, 14:16. Показов 3224. Ответов 4 Метки нет (Все метки) Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа и вычислить сумму первых 4-х чисел. На С++ уже бы написал, но паскаль не знаю. Помогите плз, заранее спасибо! 0

@mriceMan 0 / 0 / 0 Регистрация: 30.11.2009 Сообщений: 18
	16.01.2011, 14:32 [ТС]	3
	Спасибо большое за алгоритм! Но как задача будет выглядеть полностью. Просто я паскаль вообще не изучал (только C++) и синтаксис вообще не знаю. А тут потребовалось решить эту задачу на паскале. Если тебе не сложно не мог бы написать листинг проги, что называется от А до Я. 0

@mriceMan 0 / 0 / 0 Регистрация: 30.11.2009 Сообщений: 18
	16.01.2011, 15:17 [ТС]	5
	Спасибо огромное! 0

Опции темы