Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
JûšțĞîřł
20.05.2023 19:42 •
Информатика
Дана последовательность чисел, среди которых имеется один нуль. вывести на печать все числа до нуля включительно. abcpascal
Показать ответ
Ответ:
umka2345
19.08.2020 15:26
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=(SeqRandom(ReadInteger('n=')-1,1,99)+Seq(0)).ToArray.Shuffle;
Writeln('Исходный набор'); a.Println;
Writeln('Элементы до нуля'); a.TakeWhile(x->x<>0).Println
end.
Тестовое решение:
n= 20
Исходный набор
45 28 62 16 54 29 50 5 39 32 94 95 57 0 53 2 4 86 11 23
Элементы до нуля
45 28 62 16 54 29 50 5 39 32 94 95 57
0,0
(0 оценок)
Популярные вопросы: Информатика
KOTE422
05.06.2020 21:19
Составить блок схему как собрать портфель в школу...
valu49
03.04.2020 01:00
Вкаком году информатика была признана отдельной наукой?...
BunraccoonXD
03.04.2020 01:00
Смысл понятия информация с обыденной точки зрения?...
dimysisdimysis
15.11.2021 16:29
1. растровый графический файл содержит черно-белое изображение с 16 градациями серого цвета размером 10х10 пикселей. каков информационный объем этого файла? , 2. 256-цветный...
teylor3
15.11.2021 16:29
Кр по инфе дан массив из 10 случайных чисел заданым на интервали [-10; 10] умножить положительные элементы на -2 , и ввести массив на экран...
Косалинааа
30.09.2022 03:28
На с++ дано натуральное число. найдите число десятков в его десятичной записи. входные данные вводится единственное число (гарантируется, что число не превышает 10 в 6 степени)....
GrankaleS
31.05.2020 10:38
На c++ дано целое число n. выведите следующее за ним четное число. необходимо решить целочисленными операциями без использования условных операторов (в том числе без тернарного...
kicked102
04.12.2022 02:21
В распоряжении пользователя имеется память объемом 2,6 Мб. Необходимо записать цифровой аудиофайл с длительностью звучания 1 минута. Какой должна быть частота дискретизации...
pavlov0202
05.06.2022 08:05
В электронной таблице заполнен числами диапазон A1:G10. Оказалось, что значение формулы =AVERAGE(A5:F5) равно 3. Чему равно значение формулы =SUM(A5:G5), если значение ячейки...
ybrfyjh
16.01.2022 06:23
Определить, встречается ли в ведённом числехотя бы одна цифра неравная трём (написать программу на паскале)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=(SeqRandom(ReadInteger('n=')-1,1,99)+Seq(0)).ToArray.Shuffle;
Writeln('Исходный набор'); a.Println;
Writeln('Элементы до нуля'); a.TakeWhile(x->x<>0).Println
end.
Тестовое решение:
n= 20
Исходный набор
45 28 62 16 54 29 50 5 39 32 94 95 57 0 53 2 4 86 11 23
Элементы до нуля
45 28 62 16 54 29 50 5 39 32 94 95 57