Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
nastylamyr2999
01.09.2021 21:12 •
Информатика
Заполнитьмассив а , начинаясх(ввести х с клавиатуры)
Показать ответ
Ответ:
megais
03.07.2020 12:21
Type mas=array[1..1000] of integer;
var
a:mas;
i,h,x,k:integer;
begin
readln(h,x);
k:=0;
for i:=x to h+x do
begin
read(i);
k:=k+1;
a[k]:=i;
end;
for i:=1 to k do
write(a[i], ' ');
end.
На всякий случай написала вывод массива
0,0
(0 оценок)
Популярные вопросы: Информатика
Redll
28.11.2022 06:10
Вexcel построить таблицу значений функции y = ax2 +bx + c на промежутке [0; 4] с шагом 0,25. значения коэффициентов взять a=1, b=2, c=3....
Саняша69
14.01.2022 21:56
Задача по информатике на скриншоте...
ИльяХлус
10.05.2021 07:06
Я не понял это навсегда или нет?...
gbhj76
30.04.2023 08:05
Запишите по правилам ввода формул в электронной таблице выражения : а) 5(G8+X41)...
DashaKim117
10.01.2020 14:43
Напишите программу, которая в качестве аргумента принимает имя файла (не указан файл или указан несуществующий — ошибка) и выводит его содержимое на экран. В добавок, программа...
Руфина157
14.10.2022 04:50
числа из одной системы счисления в другую. a) 71 8 Х 10 Х 2 ; b) 5Е 16 Х 10 Х 8 ; c) Х 10 Х 16 ; d) AF 16 Х 10 Х 2 мне нужно решение...
Daniil129932
03.11.2020 13:01
У меня в тик токе 10 тыс. Подписчиков (стрим есть) Почему нет кнопки транслировать на пк?...
nataljalevchen
16.08.2022 23:28
По программированию ...
rfudedw08
01.05.2021 18:45
Цикл, в котором количество повторений заранее определено, называется... продолжение...
vladlena217
23.05.2020 18:48
Напишите две программы на паскале используя массив. 1) Найти среднее арифметическое элементов, расположенных между первым и вторым нулевыми элементами. Если по какой-либо причине...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a:mas;
i,h,x,k:integer;
begin
readln(h,x);
k:=0;
for i:=x to h+x do
begin
read(i);
k:=k+1;
a[k]:=i;
end;
for i:=1 to k do
write(a[i], ' ');
end.
На всякий случай написала вывод массива