Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Anna1111251
20.04.2020 02:44 •
Информатика
1запишите выражение,которое формирует массив в,содержащий 7 целых чичсел,принадлежащий промежутку [-10; 10] 2 запишите выражение,которое формирует массив в,объявленный в 1 случайными числами
Показать ответ
Ответ:
leralerochka202
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 оценок)
Популярные вопросы: Информатика
Radjabaliev
10.10.2021 18:37
Крч я хочу сделать бота в дискорд (на языке пайтон) и у мен вопрос как сделать так что бы оно автаматический каждое 3 чеса писала какую либо каманду в чат (на пример S.up) НЕ ЗНАЮШИЕ...
ayratka2
02.10.2021 01:29
Нарисуйте данный рисунок на turtle Python...
ваня323232233
01.11.2020 14:42
Вычислить периметр ромба если диоганали заданы...
YaShKa111111
29.01.2021 20:27
4. У исполнителя Вычислитель две команды, которым присвоены номера: 1 - отнять 2; 2 - умножить на 3. Какое число получится, если к числу 2 применить команду 221 * 5. У исполнителя...
АннаФилип270406
22.06.2020 22:06
Посмотри что получится если выполнить команды для чисел 5 и 20 запиши команды алгоритма и выполнить команды для чисел 9 и 25 запиши что получается...
Max749
26.05.2023 16:00
Составь алгоритм упорядочивания записей о предках пушкина а.с....
kvaisberg
25.12.2021 22:54
Нужно перевести число 3500 в двоичную, восьмеричную и шестнадцатиричную систему счисления....
хлюпхлюпик
10.08.2020 03:56
Сообщение занимает 4592 байтов информации. сколько строк на странице , если символов в каждой строке 41 и использована кодировка юникод?...
KINGMe
10.08.2020 03:56
1).переведите число 68 из десятичной в двоичную. 2).переведите число 771 из десятичной в двоичную. 3).переведите число 110101 из двоичной в десятичную. 4).переведите число 1101001100...
max697
02.07.2020 18:34
НАПИШИТЕ НА ДЖАВАСКРИПТ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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: