Вопрос по информатике:
Как можно быстрее, пожалуйста!
Паскаль 10-й класс.
1. Заполнить массив из 20 элементов случайными числами от 0 до 10. Распечатать его. Посчитать количество элементов в массиве меньших, чем среднее арифметическое всех элементов массива.
2. Ввести число. Выделить цифры, посчитать количество нулевых цифр в числе. Если таких нет, то выдать сообщение "нет".
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.08.2016 10:31
- Информатика
- remove_red_eye 13886
- thumb_up 25
Ответы и объяснения 1
Внимание! Если программа не работает, обновите версию!
** 1 **
begin
var a:=ArrRandom(20,0,10); a.Println;
var m:=a.Average;
writeln('Число элементов, меньших среднего ',a.Where(t->t
Пример
8 2 7 5 8 0 0 9 9 3 0 10 10 0 5 10 4 9 1 5
Число элементов, меньших среднего 11
** 2 **
begin
var k:=ReadInteger('n=').ToString.Where(c->c='0').Count;
if k=0 then Writeln('нет') else Writeln(k)
end.
Пример
n= 25204301
2
- 21.08.2016 05:44
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.