tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Pascal abc . заполнить массив
Pascal abc . заполнить массив из 10-ти элементов целыми случайными числами в диапазоне [ – 20; 20], вычислить сумму положительных элементов массива
vektar1234
2 23.09.2019 18:30
0
Ответы
солнышко267
08.10.2020 13:01
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-20,20); a.Println;
Writeln('Сумма положительных равна ',a.Where(t->t>0).Sum)
end.
Пример
-3 -19 10 5 14 13 -1 0 -2 -12
Сумма положительных равна 42
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
arslankutdusov
26.04.2019 23:37
Перевести код с c++ на pascal (турбо паскаль)#include #include #include using namespace std; const double eps = 0.01; double func(double x) {return x*sinh(x); }double simpson_integral(double...
fil0
26.04.2019 23:21
(15б ) решить нужно 1)объясните как решать подобные в системе счисления с основанием а запись числа 74 оканчивается на 4 и содержит 3 цифры. чему равно а? 2) компьютер с ip-адресом...
даша1820065к
27.04.2019 00:50
(25б ) решить нужно 1)объясните как решать подобные в системе счисления с основанием а запись числа 74 оканчивается на 4 и содержит 3 цифры. чему равно а? 2) компьютер с ip-адресом...
Backlajan89
27.04.2019 01:34
Нужна . нужно построить 4 деограммы в еxcel....
вероника04122006
27.04.2019 03:14
ответить на вопросы по архитектуре. 1) этапы развития периферийных устройств. 2) виды систем счисления. 3) элементы эвм и логические схемы....
Pumpkinjeck
27.04.2019 06:38
Решить нужно 30 1)объясните как решать подобные в системе счисления с основанием а запись числа 74 оканчивается на 4 и содержит 3 цифры. чему равно а? 2) компьютер с ip-адресом...
amid2003
27.04.2019 08:00
Вывести все четные числа кратные пяти в интервале от 2 до 100 включительно; используя do while...
homie51
27.04.2019 07:56
Создать 3 массива и заполнить их. отсортировать их, используя сортировку пузырьком и выбором. сделать в с++...
Айла2010
27.04.2019 08:59
Напишите : принцип работы ядра процессора....
Frolinng
27.04.2019 08:59
Вам вводится число n — размер двумерного массива. необходимо вывести массив, где i-я строчка состоит из чисел i. формат входных данных с клавиатуры вводится целое число n (n≤100)...
Популярные вопросы
Используя простейшие преобразования к графику функции у=х^3, постройте график...
2
Придумайте и запишите по пять слов, состоящих из: 1)корня и окончания: 2)корня...
2
4корней из а +5корней из б-7корней из а...
3
20-6+3=17 (этаж) ответ войдя в такой сказочный лифт на 1 этаже 20 этажного дома...
1
Какую массу холодной воды при температуре t1=15°c необходимо влить в горячую...
3
Морфологический разбор слова защищённый...
2
Если в атоме содержится 15 протонов, то сколько электронов будет в этом атоме...
1
Было 500 руб. потратили 40 проценты проценты всей суммы от 50% остатка сколько...
1
Определить падеж,род,число слову кончики,чёлка,шерсть,...
2
Вставь пропущенные is или are. 1)there one window in the kitchen. 2) there no...
3
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-20,20); a.Println;
Writeln('Сумма положительных равна ',a.Where(t->t>0).Sum)
end.
Пример
-3 -19 10 5 14 13 -1 0 -2 -12
Сумма положительных равна 42