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.
Var ar: array[1..10000]of integer; ms: array[1..10000]of integer; i, c, n, j, p: integer; b: boolean; begin randomize; b := true; c := 1; write('Введите количество элементов массива:'); read(n); writeln('Массив:'); for i := 1 to n do ms[i] := -2147483648; for i := 1 to n do begin ar[i] := random(11); write(ar[i], ' '); end; for i := 1 to n do for j := i + 1 to n do begin if (ar[i] = ar[j]) then begin for p := 1 to c do if (ar[i] = ms[p]) then b := false; if (b = true) then begin ms[c] := ar[i]; c := c + 1; end; end; b := true; end; writeln; if (c = 1) then write('Нет') else begin write('Есть:'); for i := 1 to c - 1 do if(i <> c - 1) then write(ms[i], ',') else write(ms[i]); end; end.
Алгоритм - описание какого-то количества действий, которые нужно совершить, чтобы достичь заданной цели.
Алгоритм построения угла, равного данному
Алгоритм решения линейного уравнения
Алгоритм умножения двух чисел "в столбик"
Объяснение: