PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
3. Заполнить массив случайными целыми числами (0-10). Найти сумму четных и нечетных значений.
begin var a:=ArrRandom(ReadInteger('n='),0,10); a.Println; var so:=a.Where(t->t.IsOdd).Sum; var se:=a.Where(t->t.IsEven).Sum; Writeln('Сумма четных значений равна ',so,', нечетных ',se) end.
3d-моделирование - создание 3д моделей, ландшафтов, проектирование зданий, расчет физики химик-технолог обработка фотографий - рисование картин с графического редактора, изменение фотографий Нанотехнолог Инженер-конструктор - работа с AutoCAD Web-дизайнер Инженер по телекоммуникациям и связи Инженер по контрольно-измерительным приборам и автоматике (КИПиА) Режиссёр монтажа Математик Аудитор Укладчик текста - это например при заснятом ролике для музыки, он текст выравнивает, чтобы было похоже, что он (она) и в правду поет танцуя например Билетный кассир Бухгалтер - ревизор Бухгалтер Робототехник Диспетчер по центровке самолетов Гейм-дизайнер Трейдер ИТ-директор Линк-менеджер Физикотерапевт думаю хватит на этом...
Відповідь:
Цикл while виполниться 4 раза
Пояснення: