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

@Эля11 · Регистрация: 21.01.2013

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

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

@Erea · 08.05.2013, 17:43

Pascal

Program MyProg;
uses crt;
var i,j, n, m, sum: integer;
    A: array [1..100] of integer;
 
begin
clrscr;
readln(n);
sum:=0;
randomize;
 
for i:=1 to n do begin
A[i]:=random(10);
write (A[i]:4);
end;
 
writeln;
 
for i:=1 to n do begin
m:=0;
    for j:=1 to n do begin
    if A[i]=A[j] then m:=m+1;
    end;
if m=1 then sum:=sum+A[i];
end;
 
writeln(sum);
readln;
end.

@Эля11 1 / 1 / 0 Регистрация: 21.01.2013 Сообщений: 30
		1
	Составьте программу вычисления суммы элементов одномерного массива 08.05.2013, 17:31. Показов 1503. Ответов 1 Метки нет (Все метки) Составьте программу вычисления суммы элементов одномерного массива A(N), встречающихся в этом массиве ровно один раз. 0

Опции темы

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

Решение