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.
Const n = 1000; var massiv : array[1..n] of integer; countOfElements, maxElement, i, m, j : integer; begin write('Введите количество элементов массива: '); readln(countOfElements); writeln('Введите элементы массива'); for i := 1 to countOfElements do read(massiv[i]); writeln(); maxElement := massiv[1]; for i := 1 to countOfElements do if (maxElement < massiv[i]) then maxElement := massiv[i]; m := countOfElements; i := 1; while i <= m do if massiv[i] = maxElement then begin for j := i to countOfElements - 1 do massiv[j] := massiv[j+1]; m := m - 1; end else i := i + 1; massiv[countOfElements] := 0; write('Максимальный элемент: '); writeln(maxElement); for i := 1 to countOfElements do write(massiv[i]:4); end.
