Составьте программу вычисления суммы элементов одномерного массива

@Дмитрий92 · Регистрация: 19.11.2009

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

Составьте программу вычисления суммы элементов одномерного массива А(N), встречающихся в этом массиве ровно один раз.
вот мои наброски задачи:

Pascal

Program SSS;
var
x: array [1..100] of real;
i,n: integer;
sum: real;
begin
write('n=');
readln(n);
for i:=1 to n do
begin
write('x(',i, ')=');
readln(x[i]);
end;
begin
Writeln('massiv N');
for i:=1 to n do
writeln (x[i]:6:2);
end;
sum:=0;
for i:=1 to n do
begin
for i:=1 to n do
if x[i]<>x[i+1] then
sum:=sum+x[i];
writeln('summa=',sum:3:1);
readln;
end;
end.

какое условие должно быть? я никак понять не могу.....

@Puporev · 17.03.2010, 15:26

Вот по простому, без заморочек.

Pascal

sum:=0;
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to n do
  if x[i]=x[j] then k:=k+1;
  if k=1 then sum:=sum+a[i];
 end;

@Дмитрий92 · 17.03.2010, 15:54 **[ТС]**

напиши целиком эту задачу? а то я пробую она у меня не катит

Добавлено через 6 минут
А можешь объяснить за что в этой задаче отвечает переменная К?

@Puporev · 17.03.2010, 15:56

к это количество совпадений числа в массиве.

@Дмитрий92 0 / 0 / 0 Регистрация: 19.11.2009 Сообщений: 47
	17.03.2010, 15:54 [ТС]	3
	напиши целиком эту задачу? а то я пробую она у меня не катит Добавлено через 6 минут А можешь объяснить за что в этой задаче отвечает переменная К? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	17.03.2010, 15:56	4
	к это количество совпадений числа в массиве. 1

Опции темы