Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Сербина
05.02.2021 03:52 •
Информатика
Решить . pascal дан массив целых чисел к(15), найти и вывести на печать отрицательные элементы из этого массива.
Показать ответ
Ответ:
Alle963
05.07.2020 19:27
Program chik;
var k:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do
read(k[i]);
for i:=1 to 15 do
if(k[i]<0)then write(k[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
chestnut3342
28.08.2021 04:05
Вячейке в4 электронной таблицы записана формула = $c3*2. какой вид приобретет формула, после того как ячейку в4 скопируют в ячейку в6?...
kasper212
16.05.2021 00:04
Решите уравнение по информатике ...
shulyakovatati
08.02.2020 22:27
) В командном интерфейсе используется только клавиатура для ввода задач для ОС 2) В графическом интерфейсе в качестве активного элемента выступает устройство вывода...
никанана
22.07.2020 17:39
КТО ОТВЕТИТ ПРАВИЛЬНО ИНФОРМАТИКА...
Nastya171167
30.04.2023 23:35
Dтри числа дан массив из n целых чисел а1, а2, an. вам нужно проверить, есть ли в этом массиве три числа сумма которых равна нулю. формат входных данных в первой...
svetakovalenko4
30.04.2023 23:35
Перевести в десятичную систему из двоичной 100101100...
sergnovop08ly5
26.05.2020 18:37
Кто знает в pascal abc программа которая во введенном слове подсчитывала бы число букв а и заменяла их буквами б...
Даниил520393
04.05.2023 01:53
Fоплата сегодня али в местном магазине сделал покупку за c тенге. он только хотел расплатится и услышал от продавца фразу без сдачи , молодой человек . у него есть...
gilsveta4
31.12.2020 04:40
разделение одной ячейки на две диагональю 2007...
nezandenzar
27.05.2020 10:06
Решить в паскале перевести заданное количество байтов в биты, килобайты, мегабайты....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var k:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do
read(k[i]);
for i:=1 to 15 do
if(k[i]<0)then write(k[i],' ');
end.