составьте программу вычисления суммы элементов одномерного массива А(N), встречающихся в этом массиве ровно один раз.
10-11 класс
|
На Паскале:
program Program1;
var i, j, n, k: integer;
var result: real;
var array1: array [1..255] of real;
begin
result := 0;
write('Введите значение N (не более 255): ');
readln(n);
for i := 1 to n do
begin
write('Введите значение ', i, ' элемента массива: ');
readln(array1[i]);
end;
begin
writeln('Массив, размером - ', n, ' элементов(а):');
for i := 1 to n do write(array1[i], ' ');
writeln;
end;
for i:=1 to n do
begin
k := 0;
for j:=1 to n do
if array1[i] = array1[j] then k := k + 1;
if k = 1 then result := result + array1[i];
end;
writeln('Сумма уникальных элементов массива = ', result);
end.
int k=0, sum=0;
for (int i; i<a.Length; i++)
{
for (int j; j<a.Length; j++)
{
if (a[i] == a[j])
k++;
}
if (k == 1)
sum+= a[i];
k=0;
}
На C# как-то так будет выглядеть.
Смысл в двойном цикле for, который проходится по массиву и заносит в переменную k количество первого взятого элемента и т.д., затем если условие выполняется суммирует.
Другие вопросы из категории
CLS
K = 0
DIM B(K)
INPUT N
FOR I = 1 TO N
INPUT A
IF A > 0 AND A MOD 3 = 0 THEN K=K+1 : B(K) = A
NEXT I
IF K > 0 THEN GOTO 10 ELSE GOTO 20
C = K
10 FOR D = C TO 1
PRINT B(K)
NEXT D
END
20 PRINT -1
END
произведение его цифр.
Читайте также
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
X(2) - то же для массива Q;
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которыхлежит в интервале [2;4], оформить в виде подпрограммы.
PascalABC
Вот такие задачи нам задают.Прошу помощи.Заранее спасибо =)