Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
P4ndainst
13.11.2022 09:43 •
Информатика
Имеется массив из 25 случайных чисел. получить новый массив из положительных значений первого, первый массив числа от -10 до +10
Ответ:
SiperV2
08.10.2020 03:38
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(25,-10,10); a.Println;
a:=a.Where(t->t>0).ToArray; a.Println
end.
0,0
(0 оценок)
Ответ:
Khan11111
08.10.2020 03:38
Ничего сложного.
P.S. Работает на 11 стандарте и ниже, на счёт 14 и 17 не уверен.
UPD: Проверил на 14 и 17 стандарте, работает!
0,0
(0 оценок)
Популярные вопросы: Информатика
Малефисента1111111
05.04.2022 20:03
Вычислить значение величины c= n! / (n-k)! *k! где, например, 5! --факториал числа 5 и 5! = 1*2*3*4*5. pascalabc если можно,то , с функции или процедуры...
Aрiшkа
05.04.2022 20:03
Втреугольнике abc ab=12 см bc на 3 см меньше ab ac в 3 раза меньше ab чему равен периметр треугольника abc...
IrAKoT666
05.04.2022 20:03
Склавиатуры вводится натуральное число n. подсчитать сумму 1! + 2! + 3! +! вычисление факториала числа оформить в виде функции pascalabc функцией или процедурой...
Amrlololoshka
05.04.2022 20:03
Склавиатуры вводятся пары вещественных чисел - координаты x и y точек на плоскости. координаты 0,0 служат для окончания ввода. вывести на экран координаты точки, находящейся...
илья1972
05.04.2022 20:03
Рассчитать значение, определив и использовав необходимую функцию. n вводится с клавиатуры. y= (1+sin(1))/3+(3+sin(3))/3+ +((2*n-1)+sin(2*n-1))/3 pascalabc...
negfhbr
05.04.2022 20:03
Написать программу на языке паскаль: гражданин 1 марта открыл счет в банке, вложив 1000 руб. через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы....
luizalol
05.04.2022 20:03
1.дано натуральное число m. подсчитать количество всех 0 в числе. 2.дано натуральное число n. вывести это число в обратном порядке (все на языке паскаль abc)...
AlexxP
04.01.2020 14:44
Число -280 перевести из 10-ричной системы счисления в 16-ричную...
Кэйт777
10.12.2020 23:02
Электронды кестені қарастырыңыз. Кестелік модельді құру кезінде қолданылған формулаларды жазыңыз.Ұяшықтар адресіФормулаЕ2=C2*D2E3E4E5...
Гвендолин11
05.06.2021 02:49
Деректер қорының ерістерін көрсетіңіз және оқушының мәліметтерін кестеге енгізіңіз.5 «А» сыныбының оқушысы Боранбаева Айжан 01.01.2009 жылы Алматықаласы, Абылайхан...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(25,-10,10); a.Println;
a:=a.Where(t->t>0).ToArray; a.Println
end.
P.S. Работает на 11 стандарте и ниже, на счёт 14 и 17 не уверен.
UPD: Проверил на 14 и 17 стандарте, работает!