Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Rubin22
28.08.2021 08:28 •
Информатика
Дан массив. все его элементы: а) уменьшить на 20;
Показать ответ
Ответ:
Vikatyn
01.07.2020 10:30
Program chik;
var a:array[1..10000]of integer;
n,i:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
a[i]:=a[i]-20;
end;
for i:=1 to n do
write(a[i],' ');
end.
Обычно за 5б я не решаю но ты мне понравилась..
0,0
(0 оценок)
Популярные вопросы: Информатика
lena1super
01.09.2022 21:59
Составьте программу, проверяющую, что введеное число делится на три без остатка в питоне...
Ангелочек350
09.02.2022 23:42
Индира, Эмиль и Лена нашли в земле старинный сосуд. Каждый высказал о нем по два предположения: Индира: Это сосуд скифский и изготовлен в V веке. Эмиль: Это сосуд согдийский...
ДжузоСузуя13
01.07.2021 10:11
Впроцессе составления расписания уроков учителя высказали свои пожелания. учитель , высказал пожелание проводить первый или второй урок, учитель информатики — первый или третий,...
НикитаСекретчик
28.05.2021 07:52
Исправьте ошибки: Program massiv; Var a:array(-10..10) of integer; Begin For i:=1 to 20 Do Read(a[i]); For i:=1 to 20 Do a[i]:=a[i]/10; For i:=1 to 20 Do Write(a[i]) End. 2....
Shahi95
06.11.2020 00:29
Нечётная прогрессия Известны количество и сумма нескольких подряд идущих нечётных чисел. Нужно найти эти числа. Input Со стандартного устройства ввода вводятся 2 натуральных числа...
vanechkamituso
25.10.2020 04:04
В текстовом редакторе напиши словесное описание алгоритма...
istepysh
03.04.2022 22:49
Дание Усовершенствуйте игру, созданную на занятии. Добавьте цикл, в котором случайным образом будет генерироваться событие и выводиться в консоль. Возможные события: ■ Входим...
canimzoo
11.08.2022 04:58
Вкаких тепловых поясах (поясах освещенности) расположена? тема африка...
Zendydla
11.08.2022 04:58
Складіть запитання khreshchatyk/lovely/is/when/esprcially...
аы437
11.08.2022 04:58
Решите неравенство (5x−9) в квадрате≥(9x−5) в квадрате ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..10000]of integer;
n,i:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
a[i]:=a[i]-20;
end;
for i:=1 to n do
write(a[i],' ');
end.
Обычно за 5б я не решаю но ты мне понравилась..