Вопрос по информатике:
1)Дан целочисленный массив с числом элементов N.Вывести все его нечётные элементы и сумму.
2)Написать программу,которая проверяет,есть ли во введённом с клавиатуры массиве элементы с одинаковым значением.
СРОЧНО!!!
Пожаловаться
- 26.12.2017 05:43
- Информатика
- remove_red_eye 13849
- thumb_up 28
Ответы и объяснения 1
Program z5; Var a:array [1..1000] of integer; i,s,p,n:integer;Begin Write('N = '); readln(n); for i :=1 to n do read(a[i]); s:=0; for i :=1 to n do s:=s + a[i]; Writeln('Сумма элементов массива = ',s); for i :=1 to n do if(a[i] mod 2 0) then write(a[i],' ');End.
Пожаловаться
- 27.12.2017 16:52
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы