На Паскале:
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.
//написано на (си/си++)
#include <iostream>
#include <stdio.h>
#include <time.h>
int main(){
setlocale(LC_ALL,"");
srand(time(NULL));
int arr[10];
int mul = 1;
for (int i = 0;i < 10;++i){
arr[i] = rand() % 1000;
if (arr[i] %2 == 0){
mul *= arr[i];
std::cout << arr[i] << "\n";
}
}
std::cout << "Произведение четных чисел:" << mul;
system("pause");
return 0;
}