Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
deminav733
12.03.2021 02:21 •
Информатика
Дан массив в(20) , заменить в нем все отрицательные числа на 1, а положительные на 2
Показать ответ
Ответ:
nikita425
02.10.2020 12:33
Var
b: array[1..20] of integer;
i: integer;
begin
//тут пишите свой массив
b[1] := -5;
b[2] := 0;
b[3] := 10;
i := 1;
for i := 1 to 20 do
begin
if b[i] < 0 then
b[i] := 1
else b[i] := 2;
writeln(b[i]);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Zlyka11
29.09.2021 10:38
Написать программу на python,...
AlexPomanov
23.10.2020 01:35
18 - Электронные таблицы Calc (функции) 1. Как называется функция Calc, которая вычисляет сумму значений переданных ей ячеек и диапазонов?2. Какое значение появится в ячейке...
uhudongoair
25.09.2021 23:11
Как по тексту программы определить, какое значение возвращает функция? Приведите пример...
mzachinyaeva
26.07.2021 08:27
Решите задачи phyton 1.Создайте список из пяти чисел. Выведите на экран их сумму, мальный и минимальный элемент. Для решения воспользуй тесь встроенными в Python функциями sum(),...
mixa152rus
20.11.2021 07:06
Проанализируйте достоинства инструментов в 2D- и 3D-програм- мах. Найдите 5 сходств и 5 различий в назначениях инструментов графического редактора Paint и программы SketchUp....
dashani7562
14.07.2022 14:56
Сообщение по информатике на тему файл и файловая система...
Мальвина1111112
07.01.2023 13:56
30 ! определите сходство и различия между сценарием анимации и сценарием игры, заполнив диаграмму венна....
CoolSansSkeleton
28.09.2020 09:48
1. Із переліку виберіть особливості, які характерні для поверхневого апарату бактерій:а)клітинна стінка з целюлози; б)клітинна стінка з хітину; в)клітинна стінка відсутня; г)клітинна...
olleandro
24.11.2021 16:29
Найдите восьмой член в биномиальном разложении: (5с-3х)^10...
alyabub
24.11.2021 16:29
Найдите неизвестный член пропорции...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
b: array[1..20] of integer;
i: integer;
begin
//тут пишите свой массив
b[1] := -5;
b[2] := 0;
b[3] := 10;
i := 1;
for i := 1 to 20 do
begin
if b[i] < 0 then
b[i] := 1
else b[i] := 2;
writeln(b[i]);
end;
end.