Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Nazar07072004
07.12.2022 01:51 •
Информатика
Массив содержит рост 5 человек (в метрах). вывести на экран рост людей. (pascal)
Показать ответ
Ответ:
aprishkom
25.09.2020 10:29
Var
a: array[1..5] of real;
i: integer;
begin
for i := 1 to 5 do
begin
a[i] := Random(210)/100;
write(a[i], ' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Шист
12.01.2023 12:52
Решение должно корректно работать в pascalabc.net, версии не выше 2.2 заменить максимальный элемент на номер первого нулевого элемента массива....
cangelina2025
28.02.2021 18:16
Формула жазу барысында қолданылатын ұяшық қатар бағандар адресі...
marinaboarskaa41
12.03.2021 05:41
Ри школьника (Миша, Коля и Сергей), остававшиеся в классе на перемене, были вызваны к директору по поводу разбитого в это время окна в кабинете. На вопрос директора...
vasifalieyev001
06.04.2023 17:08
Task 1 Software costs developers a great deal of time and effort to create. Laws exist to try and prevent this software from being illegally downloaded or copied. a....
mybrainishere11
01.01.2022 20:49
ДОМАШНЕЕ ЗАДАНИЕ в Найдите термин в соответствии с описанием:а) в программе Scratch графически движущийся объект – этоб) блоки команд Scratch отсортированы по цвету....
Mariyana10
22.04.2021 02:08
Складіть програму, яка буде рахувати кількість введених з клавіатури речень...
Sravkur
15.01.2023 11:22
Медную проволоку растворили в горячей концентрированной серной кислоте. после окончания реакции раствор выпарили. какого цвета полученное вещество?...
StasMe1337
15.01.2023 11:22
Гидроксид железа 2 + азотная кислота ! составьте полное ионное уравнение!...
хочуха04
15.01.2023 11:22
Почему не бывает прав без обязанностей?...
satursacha
15.01.2023 11:22
Найди транскрипцию слов keys, guitar, ski, sail, skate, surf, dive, hairbrush, roller blades, gloves, helmet, a hundred....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array[1..5] of real;
i: integer;
begin
for i := 1 to 5 do
begin
a[i] := Random(210)/100;
write(a[i], ' ');
end;
end.