logo
Войти Регистрация Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
bogdanka1503p08ifa
bogdanka1503p08ifa
06.05.2022 18:02 •  Информатика

Составьте программу ввода с клавиатуры элементов массива а [1..10] и вывода их на экран в столбец.

Ответ:
Yulia542
Yulia542
09.10.2020 11:01
PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadArrReal('Введите 10 чисел:', 10);

 a.PrintLines

end.

0,0(0 оценок)
Популярные вопросы: Информатика
VKaurovau
VKaurovau
03.08.2021 08:10
Вставка эллипса в рисунок. ​...
akimova5
akimova5
13.02.2020 04:32
Вопрос из ОГЭ по информатике. Нужно из МАКСИМУМ 5 команд сделать из 1 в 48 1 команда- прибавь 3 2 команда-умножь на 3 Не смог её решить вообще....
Arina2008egor
Arina2008egor
23.05.2020 20:54
Pascal вводится произвольная последовательность целых чисел . найти количество элементов меньших наперед заданного числа а....
Котоман228
Котоман228
23.05.2020 20:54
Pascal .вычислить значения многочлена 2a^5*3a^2-1.7a+12 для a=0,1,5,3,4,5,….10.5....
Маша923892
Маша923892
23.05.2020 20:54
Блок схему program pr1; var a,b,c: byte; begin writeln( введите a,b,c ); readln(a,b,c); if a b then begin a: =a+b; b: =a-b; a: =a-b; end; if b c then begin b: =b+c; c: =b-c; b: =b-c;...
Александра2280193
Александра2280193
23.05.2020 20:54
Блоксхему program wk; var x,a,b,c: integer; begin readln(x); a: =x mod 10; b: =x div 100; c: =(x div 10)mod 10; x: =a*100+b*10+c; writeln(x); writeln(a, ,b, ,c); end....
IvanDremin1
IvanDremin1
23.05.2020 20:54
Блоксхему program b4; var n: byte; begin write( введите номер месяца: ); readln(n); case n of 1,2,12: writeln( зима ); 3..5: writeln( весна ); 6..8: writeln( лето ); 9..11: writeln(...
Вопросзнания
Вопросзнания
13.10.2020 01:29
Блок схему program b3; var a, i, p: integer; begin writeln(a); read(a); p : = 3; for i : = 1 to 5 do begin p : = p * a; writeln(p); end; end....
Ничегосебеденёк
Воспользуйтесь учебником и пример словесной модели события ставлю 62 !...
ievghienii1
ievghienii1
06.03.2023 10:39
Информатика 8класс таблицы истинности! друзья у вас . никак не понимаю эту тему. постройте таблицы истинности для логических формул : 3) не а или b; 6) не а или b и с; 8) не (а или...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?