Безотлагательно очень Прошу. Написать программу в Паскале:Надо заполнить массив случайными числами
Срочно очень Прошу. Написать программку в Паскале:
Надобно заполнить массив случайными числами в диапазоне от 25 до 50, отыскать сумму четных чисел и их количество.
Есения Евсеевичева
Размер массива тоже задается случайными числами?
2 ответа
Анатолий Барбазюк
// PascalABC.NET 3.2, сборка 1457 от 29.05.2017
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),25,50); a.Println;
var s:=a.Where(x-gt;x.IsEven);
Writeln('Четных чисел- ',s.Count,', их сумма равна ',s.Sum)
end.
Пример
n= 17
47 35 50 48 27 49 34 41 44 25 37 31 35 31 41 50 32
Четных чисел- 6, их сумма одинакова 258
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),25,50); a.Println;
var s:=a.Where(x-gt;x.IsEven);
Writeln('Четных чисел- ',s.Count,', их сумма равна ',s.Sum)
end.
Пример
n= 17
47 35 50 48 27 49 34 41 44 25 37 31 35 31 41 50 32
Четных чисел- 6, их сумма одинакова 258
Виктор Сударкин
Begin
var a := arrrandom(readinteger('Введите размер массива:'), 25, 50).println;
writeln('Кол-во четных чисел:', a.where(x -gt; x mod 2 = 0).count);
writeln('Сумма четных чисел:', a.where(x -gt; x mod 2 = 0).sum);
end.
var a := arrrandom(readinteger('Введите размер массива:'), 25, 50).println;
writeln('Кол-во четных чисел:', a.where(x -gt; x mod 2 = 0).count);
writeln('Сумма четных чисел:', a.where(x -gt; x mod 2 = 0).sum);
end.
Pozhilceva Sofja
"Очень поздно, чтоб поменять ответСОХРАНИТЬ ОТВЕТ" <- :(
Владимир Докучалов
begin var a := arrrandom(readinteger('Введите размер массива:'), 25, 50).println; writeln('Кол-во четных чисел:', a.where(x -> x mod 2 = 0).count); writeln('Сумма четных чисел:', a.where(x -> x mod 2 = 0).sum);end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов