Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Ми55555
04.04.2022 02:33 •
Информатика
Водномерном массиве заменить: элементы, большие -2, но меньшие 2, нулями
Показать ответ
Ответ:
anna3548202
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 оценок)
Популярные вопросы: Информатика
Умницв
30.12.2021 15:53
Организовать ввод чисел в массив e состоящий из 7 элементов ввод с клавиатуры сформировать новый массив к состоящий из элементов которые равны квадратам элементов массива е вывести...
ochvv15owqbd0
11.02.2020 18:03
В вашем распоряжении имеются весы сразновесами, измеритель ный цилиндр с водой и металлический шарик на нити. Предложите, как определить плотность шарика....
Aliona200
27.07.2020 02:02
Святий Бенедикт,монастир,лавра- всі ці слова стосуються теми… А)Православ‘я Б)Колюнійський рух В)Єрець Г)Чернецтво...
mellll12345
27.07.2020 02:02
Функция задана следующим образом: для каждого заданного числа функция определяет сумму его цифр. Выберите подходящее число, для которого значение функции будет равно 16 . 61 78 156...
Анна0809
09.09.2020 19:20
Представьте, что вы вышли из школы, которая расположена в населенном пункте Стасово, и в северном направлении 1 км. Затем повернули на запад и еще 1500 м. Проложите этот маршрут на...
дядяррррр
25.08.2021 16:15
написать эссе на тему вклад финансового университета в развитие финансового образования...
AngelinaMalik05
10.01.2023 02:45
Основою прямого паралелепіпеда є ромб, площа якого дорівнює 10C * M ^ 2 . Площі діагональних перерізів парале лепіпеда дорівнюють 24C * M ^ 2 і 30C * M ^ 2 Знайдіть діагоналі ромба,...
karbannikita
20.11.2020 13:55
Подготовьте небольшое сообщение на тему «Употребление имён существительных в художественной речи. При под- готовке сообщения пользуйтесь материалами упражнений данного параграфа,...
Bdof72005
09.04.2020 09:04
АО «Альфа» заключила договор «Об оказании правовых услуг» с организацией, оказывающей юридические услуги. Цена договора составила 2 млн. тенге. По этому договору ей юридической фирмой...
notmedont
29.10.2022 14:54
1:Какое государство появилось после заключения Люблинской унии 1569 г.? а)Речь Посполитая б)Российская империя в)Великое княжество Литовское г)Франкское государство 2:В каком году...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.