Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Ашка1231
10.05.2020 23:59 •
Информатика
1запишите выражение,которое формирует массив в,содержащий 7 целых чичсел,принадлежащий промежутку [-10; 10] 2 запишите выражение,которое формирует массив в,объявленный в 1 случайными числами
Показать ответ
Ответ:
islamovaemilia1
07.10.2020 13:19
Задание1 :
var i,t:integer;
a:array[1..7] of integer;
begin randomize;
for i := 1 to 7do begin
a[i] := round( random(17)-7 );
write(a[i]:3);
end;
t := 0;
for i := 1 to 7 do
if a[i] < 0 then
inc(t);
writeln;
writeln(t);
readln;
end.
Задание 2:
0,0
(0 оценок)
Популярные вопросы: Информатика
emilsalimov
27.09.2022 16:41
Скорость передачи данных через некоторое соединение равна 1024000 бит/с. Через данное соединение передают файл размером 2000 Кбайт. Определите время передачи файла в секундах...
Idgy
27.01.2021 16:07
Водные даные - Шесть чисел x1, y1, r1, x2, y2, r2 где x1, y1, x2, y2 - координаты центров окружностей, а r1, r2. действительные, не превышают по модулю 10^9 заданы не...
teunov
24.03.2021 11:58
1. Книга, набранная на компьютере, состоит из 128 страниц, на каждой странице 32 строки, в каждой строке 64 символа. На компьютере ие- пользуется 256-символьный алфавит....
ark2006panozs0he
03.08.2021 00:47
Статья на тему история компьютера!умоляю...
Gofer535
02.01.2023 16:01
Вопрос 1 Дайте определение понятию Таблица . Варианты ответов Таблица - это совокупность объектов со связями между ними. Таблица - это графическое отображение состава...
Срочный103
12.05.2022 13:37
В пруду живут 100 рыб, из них 20 карасей, 30 пескарей, а остальные окуни. Какова вероятность поймать карася, пескаря, окуня, если все рыбы одинаково голодны?...
ladyL6667
05.11.2020 16:39
Для записи текста использовался 64-символьный алфавит.сколько символов в тексте, если его объём равен 8190 бита? (каждый символ алфавита кодируется одинаковым и минимально...
bahriddinJoN2085
05.11.2020 16:39
1.вывести на экран таблицу умножения на 5 5*1=5 5*2=10 5*10=50 2. программа просит ввести 5 чисел и находит их сумму....
lisi2912
27.10.2022 11:43
Для хранения текста в восьмибитовой кодировке требуется 10кбайт. сколько страниц займёт этот текст, если на странице размещается 40 строк 64 символа в строке. с пояснением...
rusalochka1999p08s2t
17.06.2022 13:45
Сязыком: ) буду вам. заранее ) 9. put in the articles where necessary.(вставьте артикли где это необходимо.) 1. what is barometer? 2. weathermen collect information about...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,t:integer;
a:array[1..7] of integer;
begin randomize;
for i := 1 to 7do begin
a[i] := round( random(17)-7 );
write(a[i]:3);
end;
t := 0;
for i := 1 to 7 do
if a[i] < 0 then
inc(t);
writeln;
writeln(t);
readln;
end.
Задание 2: