Консультация № 179235
26.06.2010, 21:46
0.00 руб.
29.06.2010, 11:04
0 1 1
Здравствуйте уважаемые эксперты!
Прошу помощи в решении задачи в паскале.
В массиве чётное количество элементов.Сравнить сумму элементов первой половины массива C1 ,и второй половины массива C2 , если C1>C2 , то переменной P присвоить 1,иначе положить P равное 2 . За ранее спасибо.

Обсуждение

давно
Академик
320937
2216
26.06.2010, 22:08
общий
это ответ
Здравствуйте, Roland Deschain. Turbo Pascal.
Код:
program p1;
const
n=10;
var
v: array[1..n] of integer;
i: integer;
c1, c2: integer;
p: integer;
begin
for i:= 1 to n do
readln(v[i]);
c1:= 0;
for i:= 1 to n div 2 do
c1 := c1 + v[i];

c2:= 0;
for i:= n div 2 +1 to n do
c2 := c2 + v[i];

if c1>c2 then
p:= 1
else
p := 2;

writeln('p=', p);
readln;
end.

Форма ответа