• Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования

    Паскаль для решения следующей задачи:

    заполнить ЦЕЛОЧИСЛЕННЫЙ массив 20-ю случайными элементами

    в диапазоне от 50 до 100, вывести их на экран, а затем найти сумму лишь ЧЁТНЫХ чисел. Срочно до завтра

Ответы 1

  • PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(20,50,100); a.Println;  Writeln('Сумма четных значений равна ',a.Where(t->t.IsEven).Sum)end.Пример60 77 58 60 64 54 91 78 56 85 65 87 83 76 83 63 63 77 97 67Сумма четных значений равна 506
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years