Паскаль.Составить программку состоящую из 2х процедур. 1ая это сумма рандомных чисел
Паскаль.Составить программку состоящую из 2х процедур. 1ая это сумма рандомных чисел от 1 до 80 которые кратны 5. 2ая это сумма нечетных, отрицательных чисел
Добавил вложения со изготовленными задачами без процедур, может поможет...
Олевич
Вероника
Можно и функцией)
Доги
Любовь
Да рандомные, можно любой но преимущественней до 100
Elena Shamlova
Границы от 1 до 80 если можно, просто в задачке так написано было)
Камоян
Владимир
1-80 это массив чисел, а в нем рандомные числа. Можно сделать диапозон рандома +-100
Пожилков
Борис
Я просто не корректно наверное все указал, извиняюсь)
Регина Гулида
Да. Спектр рандомных восьмидесяти чисел от -100 до 100
1 ответ
Антон Гвардицкий
// PascalABC.NET 3.2, сборка 1416 от 26.03.2017
// Внимание! Если программка не работает, обновите версию!
function s1(a:array of integer):=a.Where(x-gt;x mod 5=0).Sum;
function s2(a:array of integer):=a.Where(x-gt;x.IsOdd and (xlt;0)).Sum;
begin
var a:=ArrRandom(80,-100,100); a.Println; Writeln;
Writeln('S1=',s1(a),', S2=',s2(a))
end.
Пример
81 85 -59 97 98 65 -59 -46 -69 -70 -45 -85 -5 -88 30 -30 -60 33 52 -59 79 70 -40 -51 -5 97 78 11 65 -88 -45 78 -90 90 94 0 6 4 -8 -40 49 19 58 -35 43 9 9 24 -59 73 77 31 -59 81 38 -89 24 92 1 -99 87 31 -10 -82 75 -23 -96 5 -81 -71 65 36 -60 -8 -7 -41 -89 95 7 87
S1=25, S2=-1135
// Внимание! Если программка не работает, обновите версию!
function s1(a:array of integer):=a.Where(x-gt;x mod 5=0).Sum;
function s2(a:array of integer):=a.Where(x-gt;x.IsOdd and (xlt;0)).Sum;
begin
var a:=ArrRandom(80,-100,100); a.Println; Writeln;
Writeln('S1=',s1(a),', S2=',s2(a))
end.
Пример
81 85 -59 97 98 65 -59 -46 -69 -70 -45 -85 -5 -88 30 -30 -60 33 52 -59 79 70 -40 -51 -5 97 78 11 65 -88 -45 78 -90 90 94 0 6 4 -8 -40 49 19 58 -35 43 9 9 24 -59 73 77 31 -59 81 38 -89 24 92 1 -99 87 31 -10 -82 75 -23 -96 5 -81 -71 65 36 -60 -8 -7 -41 -89 95 7 87
S1=25, S2=-1135
Стегно
Семён
Да мне произнесли чтоб я использовал конкретно 2 функции в одной задачке, да бы улучшить программку
Толя Леонюк
Спасибо огромное за помощь, завтра просто открытый урок будет) ОООчень посодействовали
Юрка Туршу
Понял, спасибо за всю проделанную и объясненную работу
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов