Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Софія133
06.01.2023 05:25 •
Информатика
Дан массив целых чисел из 12 элементов. поменять местами первый отрицательный с первым положительным.
Показать ответ
Ответ:
hadmatter
12.07.2020 12:24
Var a: array[1..12] of integer;
i,z: integer;
f:boolean;
begin
for i:=1 to n do
readln(a[i]);
z:=a[1];
f:=false;
for i:=2 to 12 do
if not (f) and a[i]*a[1] then begin
a[1]:=a[i];
a[i]:=z;
f:=true;
end;
for i:=1 to 12 do
write(a[i], ' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ttlekzhan
17.02.2021 15:56
Паскаль авс . дана запись d1,состоящая из 3х полей: число , номер месяца, год. определить d2-дату следующего дня...
kyrmaeva200614
17.02.2021 15:56
Паскаль авс. дан массив записей. отдельная запись-это информация об успеваемости студента: фио, 8 оценок. напечатать таблицу успеваемости студентов группы, численностью...
HET228
25.09.2022 04:09
6*. Знайдіть відомості про інформаційні технології, які ви не вивчали в курсі інформатикі з 5-9клас та сфери їх використання. Складіть схему основних інформаційних...
aselimsovetova
06.06.2020 02:09
Робот, оснащённый двумя отдельно управляемыми колёсами одинакового радиуса, проезжает прямолинейную трассу. При этом каждая из осей моторов делает по 64 полных оборота....
123451531
18.08.2022 20:40
Игра в буквы. Первая строка состоит из одной латинской буквы А . Каждая следующая строка создается по следующему алгоритму: сначала записывается буква, чей порядковый...
HAHHSSAGSGAGS
09.05.2022 17:02
Напишите наименьшее целое число Z, для которого истинно высказывание: НЕ (Z 12) И НЕ (Z НЕЧЕТНОЕ)...
Alexxxxxxxxxxxxxxxey
05.06.2022 21:16
Построй блок схему X=c*(¬a→¬b)*(¬b→c) Объясните как строить...
Онил180
06.01.2022 15:20
Напишите пять команд которые расскажут о вас...
Яумницакрасотка
14.01.2023 10:14
Выбрать типы алгоритмических конструкций : 1)цикл2)следование3)развилка4)ветвление5)блок-схема6)словесныйВыбрать записи алгоритмов :1)линейный2)словесный3)графический4)разветвляющийся5)алгоритмический...
Волк123111
19.05.2021 09:08
решать задачку по информатике...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,z: integer;
f:boolean;
begin
for i:=1 to n do
readln(a[i]);
z:=a[1];
f:=false;
for i:=2 to 12 do
if not (f) and a[i]*a[1] then begin
a[1]:=a[i];
a[i]:=z;
f:=true;
end;
for i:=1 to 12 do
write(a[i], ' ');
end.