Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ArinaM25
07.12.2020 00:00 •
Информатика
Дан массив. все его элементы увеличить на число b. написать пограмму в паскале
Показать ответ
Ответ:
melitatomashko
01.07.2020 12:38
Const
N=10 //размер массива
Type
A=array[1..n]of real;
Var
I,B:integer;
Begin
For I=1 to n do
Read(a[i]); //ввели массив
Read(b);
For I=1 to n do
Begin
A[i]:=a[i]+b;
Write(a[i]);
End
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
yoperesete
26.01.2021 01:42
Можете выбери верный ответ из списка. 1. основной функцией внешней памяти компьютера является долговременно хранить объём информации. 2. устройство, которое обеспечивает...
as79118487190
08.03.2021 15:48
Найти десятичный эквивалент числа по его дополнительному коду 11010010, записанному в 8-ми разрядном формате со знаком а)210; б)-82; в)-46; г)45;...
nastia295
11.02.2021 05:14
1. как связаны глубина цвета и объем файла?...
Dameni04
26.07.2020 17:52
25. в картинке 27. На диске доступно 32000 свободных кластеров по 4 Кб каждый. Какое максимальное количество непустых файлов можно разместить на диске....
радмир1402
18.08.2022 22:25
Даны целые числа a1,…a50. получить последовательность b1,…,b50, которая отличается от исходной последовательности тем, что все нечетные элементы удвоены....
Andrey086
18.08.2022 22:25
Найти площадь криволинейной фигуры y=sin(x), y=0, x=0, x=3.14...
ПеЧеНьКаСМоЛоЧкОм
12.08.2022 00:23
Выполните сложение в двоичной системе: а) 10111 + 101110 б) 111011 + 11011 в) 111011 + 10011. для проверки повторите вычисления, переходя к десятичной системе, а потом...
Gfykfyj
09.12.2021 08:39
Заполнить массив (с клавиатуры) и вывести его на экран м[1..9] числами 3,4,7,9,19,23,24,27,39. вывести числа, кратные 3...
sadlol21xd
16.01.2020 16:42
Допишите программу для нахождения суммы от 1 до...
rekrut234
13.02.2023 04:30
Голодный,орфограмма д,низкий,орфограмма з,ветвистый,орфограмма т,крикливый,орфограмма к,живёт орфограмма и.верны утверждения? 1)во всех словах на месте выделенной буквы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N=10 //размер массива
Type
A=array[1..n]of real;
Var
I,B:integer;
Begin
For I=1 to n do
Read(a[i]); //ввели массив
Read(b);
For I=1 to n do
Begin
A[i]:=a[i]+b;
Write(a[i]);
End
End.