Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
mafobe66
06.08.2022 18:35 •
Информатика
По информатике написать программу,осуществляющую ввод значений массива с клавиатуры(10 элементов) и вывод их в строчку.
Показать ответ
Ответ:
Nataliya49017
03.10.2020 11:06
Программа:
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('Введите массив:');
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
Введите массив:
a[1] = 15
a[2] = -8
a[3] = 24
a[4] = -31
a[5] = 45
a[6] = -61
a[7] = 72
a[8] = 19
a[9] = 55
a[10] = -28
15 -8 24 -31 45 -61 72 19 55 -28
0,0
(0 оценок)
Популярные вопросы: Информатика
dashagokova20000000
19.03.2020 07:45
Язык программирования с# Задано единственное целое число N. Необходимо вывести все точные квадраты натуральных чисел, не превосходящих данного числа N. Пример: входные...
1234554321123456
16.06.2020 11:44
Информатика СИ++. Dev-C++ 5.1...
анч21
11.06.2020 09:57
Сделать в python или ms visual basic, умоляю...
Arianalike
01.02.2022 18:39
написать код на С++ к задаче и написать блок схему алгоритма решения...
nikita1232534
29.03.2023 19:49
Что такое двоичная матрица в информатике?...
yana017
20.02.2020 15:59
Информатика дайте ответ с решением...
Нвб
31.08.2022 06:27
Числовая константа 500 00 может быть записана в ответьте...
nemat110909oy85z9
17.04.2022 17:34
Бегун в 1й день пробежал 10 км. в каждый день он пробегал на 10% больше.определить сколько км всего пробежит бегун за 30 дней(используя циклы)...
Georgiy11111
28.02.2022 18:27
Питома теплоємність ефіру у твердому стані...
Olga1618
28.02.2022 18:27
3. Гармонія тілесного і духовного, любов до життя в усіх його проявах, відкриття світу,героїчне служіння, катарсис, поєднанняреального і міфологічного - це:а) концепція...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('Введите массив:');
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
Введите массив:
a[1] = 15
a[2] = -8
a[3] = 24
a[4] = -31
a[5] = 45
a[6] = -61
a[7] = 72
a[8] = 19
a[9] = 55
a[10] = -28
15 -8 24 -31 45 -61 72 19 55 -28