Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vasa2283
11.12.2020 09:13 •
Информатика
Задать одномерный массив (в) из 25 вещественных элементов с цикла while
Показать ответ
Ответ:
Mawa1993
02.10.2020 23:11
Const n=25;
var b:array [1..n] of real;
i:integer;
begin
writeln('Заданный массив:');
Randomize;
for i:=1 to n do
begin
b[i]:=5*random-2.5;
write(b[i]:6:2);
end;
writeln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
situan4
14.11.2020 04:40
Составьте программу (паскаль) для решения : в игре лото из мешка случайным образом выбираются бочонки , на каждом из которых написано число от 1 до 50. напишите программу,...
Sachakovakrist
22.12.2021 21:03
Сообщение записанное буквами из 32 символьного алфавита содержит 80 символов какой объём информации он даёт?...
Seselia
06.02.2020 23:45
Суд города сочи приговорил дениса козлова к 1 году лишения свободы в колонии строгого режима за установку пиратского программного обеспечения. денис козлов приговорен к 1 году...
altreeff5
12.06.2021 09:49
14. на сервере info.edu находится файл exam.net, доступ к которому осуществляется попрото-колу http. фрагменты адреса данного файла закодированы буквами а,б,. запи-шите последовательность...
boykina22
16.06.2022 00:37
7. основное назначение dns: д) установление виртуальных соединенийе) преобразование мнемонических имен в ip-адреса и наоборотж) маршрутизация пакетов на сетевом уровне3) присвоение...
polinka3089
26.07.2020 00:21
Яделаю проет по информатике на тему мир компьютеров напешите мне актуальность проекта на эту тему...
vladisden
08.09.2021 04:52
Сделайте морфемный разбор слов толерантность и миропонимание....
LenaVolotova
08.09.2021 04:52
Определите изменение потенциальной энергии дельта п системы камень-земля за время падения камня массой 5 кг с высоты 80 м....
Dima1234567y
08.09.2021 04:52
Чем объясняется то что если в борьбе двух собак одна подставить шею...
dinara951211
08.09.2021 04:52
Укажи, чему равно вычитаемое, если известно, что уменьшаемое 16, а разность 4....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var b:array [1..n] of real;
i:integer;
begin
writeln('Заданный массив:');
Randomize;
for i:=1 to n do
begin
b[i]:=5*random-2.5;
write(b[i]:6:2);
end;
writeln;
end.