Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
IrinaCipher
25.03.2022 05:00 •
Информатика
Решите )) паскаль: в одномерном массиве произвольных чисел требуется заменить числом 100 значения всех элементов, удовлетворяющих условию a[i]> =5
Показать ответ
Ответ:
vladugan
01.10.2020 22:57
Const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>5 then
a[i]:=100;
for i:=1 to n do
write(a[i]:4);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
pruzhinskiy01
29.02.2020 03:55
С++ дано натуральное число n (n 99). определить число сотен внем...
3035111236
02.05.2021 13:13
Соч по информатике 5 класс с ответами 2 четверть...
maklakovatattu
27.08.2021 10:28
4. Какая структура не включает в себя проверку условия?...
Maks100000000
20.03.2021 04:08
Когда в задаче вводится короткая последовательность, не обязательно делать цикл для ее чтения. Считайте сначала n, а затем считайте столько чисел в последовательности,...
nastyakorova664
27.07.2022 09:05
спрайт мяч движется под углом 60° из левого нижнего угла сцены доходит до края разворачивается и движется в обратном направлении...
samirjyad
28.01.2020 17:18
Возможности графического интерфейса: 1. … 2. … 3. …...
BN6573
26.09.2021 02:09
6. В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети Интернет. Запрос Найдено страниц (в тысячах) Крейсер | Линкор 4700 Крейсер...
sinchugov2001
24.12.2020 17:02
Сөйлемдегі көп нуктетин орнына керекти создери...
99669888Nina
17.03.2020 17:07
3. В есть эпизоды, когда мы видим происходящее глазам Светланы, а автор как бы отстраняется. Что это за эпизоды и почем на ваш взгляд, автор намеренно отказывается...
Mariiar
22.10.2020 21:55
Одним из отличий Министерств, учрежденных в годы правления Александра 1. от коллегий является а. освобождение от подчинения государюб. введение принципа. единоначалияв....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>5 then
a[i]:=100;
for i:=1 to n do
write(a[i]:4);
end.