Страница 1 из 1
Помогите с одномерными массивами!!!
Добавлено: 21 дек 2006, 22:51
Anton_XXX
Нет, не то!!!
Вот это: Напишите программу, определяющую сумму
Х1+Х2-Х3-Х4+Х5+Х6-Х7+.... Здесь Xi - элементы массива.
Re: Помогите с одномерными массивами!!!
Добавлено: 22 дек 2006, 05:48
Oleg_Rus
x1x2 - произведение x1 и x2? или я пчо-то не понял...
Re: Помогите с одномерными массивами!!!
Добавлено: 22 дек 2006, 12:21
Anton_XXX
Вот это: Напишите программу, определяющую сумму:
Х1+Х2-Х3-Х4+Х5+Х6-Х7+.... Здесь Xi - элементы массива.
Re: Помогите с одномерными массивами!!!
Добавлено: 22 дек 2006, 12:50
somewhere
C учетом того, что чередуются минусы и плюсы, тогда:
Код: Выделить всё
S := 0;
For I := 1 to N do
If ((I-1) mod 4=2) or ((I-1) mod 4=3)
then S:=S-X[i]
else S:=S+X[i];
Re: Помогите с одномерными массивами!!!
Добавлено: 22 дек 2006, 13:44
Хыиуду
Если уж совсем упрощать, то if (i-1)mod 4>1
Re: Помогите с одномерными массивами!!!
Добавлено: 24 дек 2006, 13:40
Anton_XXX
Можете написать полностью, от program до end. Please!!!
Re: Помогите с одномерными массивами!!!
Добавлено: 24 дек 2006, 15:31
Колядин Максим
Конечео, основное уже ведь есть.
Код: Выделить всё
uses crt;
const n=5; {сам меняй}
var sum, I, q: integer;
x: array [1..n] of integer;
begin
sum:= 0;
clrscr;
for i:= 1 to n do begin
write('Ввдеите элемент №',i,' - ');
readln(x[i]);
end;
For I := 1 to N do
If ((I-1) mod 4=2) or ((I-1) mod 4=3)
then sum:=sum-X[i]
else sum:=sum+X[i];
writeln('OTBET - ',sum);
readkey;
end.
Не помешало бы тебе благодарить людей, выполнявших за тебя работу...
(Somwhere, Oleg_rus, Хыиуду)
Re: Помогите с одномерными массивами!!!
Добавлено: 24 дек 2006, 21:57
Anton_XXX
Большое спасибо вам!!!!!!