Вопрос по информатике:
Помогите пожалуйста!!!Срочно!!!Заранее огромное спасибо.
"Заполнить массив из 8 эл-тов случайными числами в диапазоне от 1 до 10, и вывести на экран кол-во эл-тов с четными значениями и сумму эл-тов с нечетными числами
Пожаловаться
- 25.08.2017 05:32
- Информатика
- remove_red_eye 9915
- thumb_up 35
Ответы и объяснения 2
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(8,1,10); a.Println;
Writeln('Количество элементов с четными значениями ',
a.Where(x->x.IsEven).Count);
Writeln('Сумма элементов с нечетными значениями ',
a.Where(x->x.IsOdd).Sum)
end.
Пример
7 4 8 6 5 8 7 6
Количество элементов с четными значениями 5
Сумма элементов с нечетными значениями 19
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(8,1,10); a.Println;
Writeln('Количество элементов с четными значениями ',
a.Where(x->x.IsEven).Count);
Writeln('Сумма элементов с нечетными значениями ',
a.Where(x->x.IsOdd).Sum)
end.
Пример
7 4 8 6 5 8 7 6
Количество элементов с четными значениями 5
Сумма элементов с нечетными значениями 19
Пожаловаться
- 26.08.2017 00:10
- thumb_up 34
Var a :array[1..8]of integer;f,x,i:integer; beginrandomize;f:=0;x:=0;for i := 1 to 8 do begin a[i] := random(9); write(a[i],';'); if (a[i] mod 2=0) then f:=f+1 else x:=x+a[i]; end;; writeln; writeln('кол-во четных ',f,' сумма не четных ',x);end.
Пожаловаться
- 27.08.2017 17:14
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы