Вопрос по информатике:
Заполните целочисленный массив псевдослучайными числами от -5 до 55
1) Найти максимальный счетный элемент и указать порядковый номер
2) Найти все элементы кратные 3-ём и вывести их сумму
3) Определить количество отрицательных элементов в массиве
- 06.01.2018 21:17
- Информатика
- remove_red_eye 9281
- thumb_up 20
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-5,55); a.Println;
var max:=a.Where(t->t.IsEven).Max;
var imax:=a.IndexesOf(t->t=max).FirstOrDefault;
Writeln('1: a[',imax+1,']=',max);
Writeln('2: ',a.Where(t->t mod 3=0).Sum);
Writeln('3: ',a.Where(t->t<0).Count);
end.
Пример
n= 20
-4 45 4 -5 38 1 42 52 53 17 42 22 3 11 28 5 14 28 35 22
1: a[8]=52
2: 132
3: 2
- 07.01.2018 01:53
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.