Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
елена430
08.05.2020 02:14 •
Информатика
Составьте программу для ввода с клавиатуры в массив 10 целых чисел и вывода первых 5-и чисел в обратном порядке в первую строку, во вторую строку – последние четыре числа в обычном порядке, а в третьей строке – первый и девятый элементы массива (
Показать ответ
Ответ:
ilinovam
04.10.2020 00:55
Var b:integer;
a: array [0..9] of integer;
begin
randomize;
for b:=0 to 9 do begin
read(a[b]);
end;
for b:=4 downto 0 do begin
write(a[b],' ');
end;
writeln('');
for b:=6 to 9 do begin
write(a[b],' ');
end;
writeln('');
for b:=0 to 9 do begin
if ((b=0)or (b=8)) then write(a[b],' ');
end;
writeln('');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
МВ080706
17.12.2021 23:31
Напишите ответы на во ответы вы знаете или можете найти в учебнике. 1. Разработчиком языка Паскаль является: (ответ впишите ЗЕЛЕНЫМ) 2. В программе на языке Паскаль...
artemkrav99ozgp1u
03.01.2021 06:48
Выполнение последовательных задач по информатике (фото в описании)...
Анюта3Б
23.03.2021 05:41
Өңдеудің кіріктірілген ортасында битпен берілген ақпарат көлемін байтқа, килобайтқа және мегабайтқа ауыстыру бағдарламасын құру керекa. Бағдарламаның интерфейсін...
чапмит
24.04.2020 05:51
3. Найти сумму всех кратных 3 или 5 ниже 10. Заполните таблицу трассировки.Код программы:i=1; s=0while i 10: if i%2==0: s=s+i i=i+1 print(s) Начальные значения: i=1;...
Noyaneya
24.08.2022 02:40
Выберите правильное значения переменных после выполнения программы: program pr3; var a, b: real; begin a:=5; b:=10; while a \gt 1 do begin b:=b*0.5; a:=a-1; end end;...
Ogents007
20.02.2020 13:09
1а.Напишите, что означает 30 в функции pygame.draw.circle(screen, black, [150,150],30) 1б. Напишите команду для создания заднего фона желтым цветом в Pygame 2а.Запишите...
7446457567
08.07.2021 11:13
Какие слова попали в группу по ошибке? апелляция, вердикт,арбитраж, алиби, иск, адвокат, нелегитимный, криминальный, афера, атташе...
nikysa1
08.07.2021 11:13
Если паша купит 11 тетрадей то у него останется 5 рублей а на 15 тетрадей у него не хватает 7 рублей. сколько у паши денег...
elena111104
08.07.2021 11:13
Отрезки me и pk имеют общую середину d. найдите периметр треугольника pde ,если pk=14см,me=10см,mk=6см...
salihvalishev
08.07.2021 11:13
Чтобы разделить число на дробь , нужно продолжите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array [0..9] of integer;
begin
randomize;
for b:=0 to 9 do begin
read(a[b]);
end;
for b:=4 downto 0 do begin
write(a[b],' ');
end;
writeln('');
for b:=6 to 9 do begin
write(a[b],' ');
end;
writeln('');
for b:=0 to 9 do begin
if ((b=0)or (b=8)) then write(a[b],' ');
end;
writeln('');
end.