Вопрос по информатике:
Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры.
Найти:
-Удвоенную сумму положительных элементов;
-Вывести значения тех элементов, которые меньше заданного числа А кратны 3.
- 10.09.2016 14:07
- Информатика
- remove_red_eye 10783
- thumb_up 25
Ответы и объяснения 1
Program PR_1; var b:array [1..10] of integer; i,sum,A: integer; begin for i:=1 to 10 do readln (b[i]); sum:=0; for i:=1 to 10 do if b[i] mod 2=0 then sum:=sum+b[i]; sum:=2*sum; writeln ('удвоенная сумма равна',sum); writeln ('введите число'); readln (A); for i:=1 to 10 do begin if (b[i]>A) and (b[i] mod 3=0) then writeln (b[i]); end.
- 11.09.2016 22:31
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.