Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
juliamarvel1
04.07.2022 00:47 •
Информатика
Описать массив из 20 элементов вывести его на экран(случайно) отдельной строкой вывести 5-й элемент
Показать ответ
Ответ:
AGIDELKA2004
05.10.2020 14:14
Program n1;
var a: array[1..20] of integer;
i,k: integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(15);
for i:=1 to 4 do write(a[i],' ');
for i:=6 to 20 do write(a[i],' ');
writeln;
writeln(a[5]);
end.
0,0
(0 оценок)
Ответ:
Top1lel
05.10.2020 14:14
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-50,50); a.Println;
Writeln('a[5]=',a[4])
end.
Пример
-11 16 -26 -2 23 0 13 34 49 50 -40 20 -50 18 24 -5 -42 38 27 -23
a[5]=23
Если пятый элемент в первой строке надо при выводе пропустить, то так:
begin
var a:=ArrRandom(20,-50,50); (a[:4]+a[5:]).Println;
Writeln('a[5]=',a[4])
end.
Пример
21 39 45 -22 -17 11 45 -26 8 46 23 12 25 36 -46 -39 -40 49 40
a[5]=-32
0,0
(0 оценок)
Популярные вопросы: Информатика
NastyaK27
16.02.2021 04:25
Впрограмме «: =» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. правила выполнения операций и...
avanesyan20011
16.02.2021 04:25
По шестнадцатеричной форме внутреннего представления вещественного числа в 4-х байтовой ячейке восстановить само число. первое число: -139,375 второе число: 45ed0000 99...
нурлес2
22.02.2022 12:18
Составьте программу, выводящую на экран числа от 1 до 30, которые делятся без остатка на 2 и 3, но не делятся на 4 . ( через while)....
katiabrandt17
22.02.2022 12:18
Для питона. ввести два натуральных числа a и b и заполнить массив из 10 элементов: первая половина массива заполняется случайными числами в диапазоне между a и b (a может быть...
Deer22
15.06.2020 10:48
Напишите программы на обоих языках, которые вводят два вещественных числа (x и y) и вычисляют значение x^y. на паскале и на алгоритмическом языке...
дада211
17.02.2020 07:12
21 0 235,16=2*7^2+3*7^1+5*7^0+1*7^-1+6*7^-2 7 решить пример и написать 3 подобных срешеним информатика 9 клас...
викусик150
03.03.2022 04:02
1. к какой философской концепции можно отнести определение: информация — это некоторое представление, т. е. образ чего-либо, созданный в какой-либо отражающей системе? обоснуйте...
Кот928
28.08.2022 07:51
Сообщение большие единицы измерения информациидайте оценку применения каждой единице измерения информации по степени возрастания до завтра...
Nikuiii
13.03.2021 16:18
Скакой системы счисления может существовать число 3210412.23...
borik7777
25.03.2021 12:50
Найдите сумму 10111102 и 11001112 а)110001012 в)11110002 с)111000112 d)10011012 напишите с решением...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array[1..20] of integer;
i,k: integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(15);
for i:=1 to 4 do write(a[i],' ');
for i:=6 to 20 do write(a[i],' ');
writeln;
writeln(a[5]);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-50,50); a.Println;
Writeln('a[5]=',a[4])
end.
Пример
-11 16 -26 -2 23 0 13 34 49 50 -40 20 -50 18 24 -5 -42 38 27 -23
a[5]=23
Если пятый элемент в первой строке надо при выводе пропустить, то так:
begin
var a:=ArrRandom(20,-50,50); (a[:4]+a[5:]).Println;
Writeln('a[5]=',a[4])
end.
Пример
21 39 45 -22 -17 11 45 -26 8 46 23 12 25 36 -46 -39 -40 49 40
a[5]=-32