Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
borisovak468
29.03.2023 16:11 •
Информатика
Даны натуральные n, целые числа a1, … , an. найти сумму неповторяющихся элементов массива.
Показать ответ
Ответ:
veronikasimonova1
01.10.2020 22:16
for i:=1 to n do
begin k:=0;
for j:=1 to n do
if a[i]=a[j]then inc(k);
if k=1 then begin
write (a[i],' ');
s:=s+a[i];
end;
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
Cyxapuk2
21.01.2023 15:39
Найти произведение всех целых числе от 8 до 15....
Raptilla
21.01.2023 15:39
Program n_5; var i, n, x: integer; a: array [1..10] of integer; begin randomize; for i : = 1 to 10 do begin a[i] : = random(100); writeln ( a[ , i, ]= , a[i]) end; writeln ( x=...
Брежний
07.01.2023 13:39
Вкодировке кои-8 каждый символ кодируется 8 битами.определите количество символов в сообщении,если информационный объем сообщения в этой кодировке равен 160 бит...
hikka137
07.01.2023 13:39
Запишите по одному истинному высказыванию из биологии, , информатики, , , ....
matveeva192016
18.11.2022 03:14
Дан массив a [1..18, 1 .. n] и натуральное число n. составить программу поиска наибольшего по модулю элемента массива, а также индекса этого элемента....
Анна3672
20.06.2020 06:15
She must leave the party early сделать отриц...
JaikLong
09.03.2020 07:08
Найди олицетворение в тексте месяц огненным шаром встает, красным заревом лес обдает. под ледяной своей корой ручей...
nermakov
09.03.2020 07:08
Докажите, что биссектриса равностороннего треугольника разбивает его на два равных треугольника...
polina19a
09.03.2020 07:08
Составьте текст про кошек (5-6 предложений)...
ChocolateMilk1
09.03.2020 07:08
Политические устройства африки и индии развитие африки и индии социальные устройства африки и индии духовное развитие африки и индии...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin k:=0;
for j:=1 to n do
if a[i]=a[j]then inc(k);
if k=1 then begin
write (a[i],' ');
s:=s+a[i];
end;
end;