Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Музалевская
28.04.2023 08:36 •
Информатика
Водномерном массиве заменить: элементы, большие -2, но меньшие 2, нулями
Показать ответ
Ответ:
ladyviktoria
30.08.2020 18:22
Uses crt;
const n=10;
var
i:integer;
a: array [1..n] of integer;
begin
for i:=1 to n do
begin
writeln('a[',i,']=');read(a[i]);
end;
for i:=1 to n do
begin
if (a[i]>-2) and (2>a[i]) then
a[i]:=0;
end;
for i:=1 to n do
writeln('a[',i,']=',a[i]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Кристина1110373
06.06.2020 19:31
Ввести с клавиатуры значение аргумента x и значение точности вычислений ε. вычислить с заданной степенью точности сумму элементов бесконечного сходящегося числового ряда s(x)=∑_(k=1)^∞▒〖(〖(-1)〗^(k...
Юлия20034
14.09.2021 19:53
Что делать если в delphi7 при написании калькулятора строчка procedure tform1.formclose(sender: tobject; var action: tcloseaction); выявляется как ошибка?...
fuvgkvu
20.05.2022 15:23
Информатика. 6 класс страница 140 Выполняем в тетрадях Напишите название окон в тетрадях....
thewinterstale
29.06.2020 01:39
Даны три числа. найти среди них минимальное положительное число....
darina097
13.04.2022 02:15
Какова структура электронного адреса...
Jdhcb
08.06.2023 11:19
Менын жазгы демалысыма шыгарма жазу 3 клл...
persik21783086532
05.01.2021 17:18
Составьте программу для вычисления y=cos√x-1/x+1....
cuperkissers20
07.01.2023 23:10
Написать программу вычисления суммы: sin x + sin 2x + sin 3x + + sin nx...
Geopolit
26.12.2021 04:24
Используя графические средства, составьте и начертите модель системы «Предприятие». Покажите подсистемы для части элементов построенной системы. Отобразите связи структурных...
yasmina2534
08.04.2022 14:44
Словесное описание алгоритма пчела...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n=10;
var
i:integer;
a: array [1..n] of integer;
begin
for i:=1 to n do
begin
writeln('a[',i,']=');read(a[i]);
end;
for i:=1 to n do
begin
if (a[i]>-2) and (2>a[i]) then
a[i]:=0;
end;
for i:=1 to n do
writeln('a[',i,']=',a[i]);
end.