Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
SUPERMODEL
27.11.2021 12:40 •
Информатика
Составе программу, которая заполняет массив а [1..8] случайными целыми числами в диапазоне от -5 до 5 и вывода на экран элементов с отрицательными значениями
Показать ответ
Ответ:
VASILIEVAALEXANDRA
21.08.2020 08:15
Const
max_v = 8;
m1 = -5;
m2 = 5;
var i:byte;
v:array [1..max_v] of integer;
// начальное заполнение массива
procedure randomArray(tx:string);
var i:byte;
begin
writeln(tx);
randomize();
for i:=1 to max_v do begin
v[i]:=random(m1,m2);
write(v[i]:6);
end;
writeln('');
writeln('');
end;
begin
randomArray('Начальный массив');
writeln('Вывод на экран элементов с отрицательными значениями');
for i:=1 to max_v do
if v[i]<0 then
write(v[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
АКА47111
10.01.2022 10:22
Подскажите пословицу что бы получился алгоритм с повтором...
Isildur3
09.03.2020 08:27
Каждый символ кодируется 1 байтом. вычислите информационный объем следующего отрывка стихотворения а. с. пушкина: и там я был, и мёд я пил; у моря видел дуб зелёный; под ним сидел,...
вера571
29.01.2021 13:56
На конец учебного года в классе было 101112 учеников. 1 сентября в класс пришли 1112 новых учеников. сколько всего стало учеников по списку?...
nata27veronika
12.12.2022 17:59
Как закрасить поле в шахматном порядке в кумире?...
омега75
12.12.2022 17:59
Яркость фляги 24 литра сколько литров молока содержится в половине фляги в 1 3 фляги...
вика3850
29.11.2020 03:16
Информационное сообщение объемом 375 байтов состоит из 500 символов. каков информационный вес каждого сообщения? какова мощность алфавита, с которого было записано это сообщение?...
olgabelova51487
29.11.2020 03:16
Для записи сообщения использовался 64-символьный алфавит. информационный объем сообщения 4500 байт. на каждой странице содержится 25 строк по 60 символов. какое количество страниц...
akrikay13
29.11.2020 03:16
Вовочка играл с числами. первое он брал случайное число кратное 3, но не больше 1000. каждое последующее число он получал путём суммирования кубов цифр предыдущего. он проделывал эту...
АнастасияCat144
29.11.2020 03:16
Для записи текста использовался 64- символьный алфавит. какое количество информации в байтах содержат 3 страницы текста, если на каждой странице расположено 40 строк по 60 символов...
mrmistik41
08.12.2020 15:57
1)сколько информации несет сообщение что из колоды карт вытащили буби2)в колоде 32 карты.сколько информации несет сообщение о том что вытащили бубей . решаются с формуы 2iравноn ,где...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
max_v = 8;
m1 = -5;
m2 = 5;
var i:byte;
v:array [1..max_v] of integer;
// начальное заполнение массива
procedure randomArray(tx:string);
var i:byte;
begin
writeln(tx);
randomize();
for i:=1 to max_v do begin
v[i]:=random(m1,m2);
write(v[i]:6);
end;
writeln('');
writeln('');
end;
begin
randomArray('Начальный массив');
writeln('Вывод на экран элементов с отрицательными значениями');
for i:=1 to max_v do
if v[i]<0 then
write(v[i],' ');
end.