Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
cat73309owz9do
16.02.2023 11:05 •
Информатика
1запишите выражение,которое формирует массив в,содержащий 7 целых чичсел,принадлежащий промежутку [-10; 10] 2 запишите выражение,которое формирует массив в,объявленный в 1 случайными числами
Ответ:
nickartyar
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 оценок)
Популярные вопросы: Информатика
Mашka
15.02.2021 05:32
Протабулировать функцию средствами электронной таблицы эксель. ( ) у=(знак корня)1+х ^2 На промежутке [0...10] с шагом 0,4. Вычисления оформить в виде таблицы, отформатировать...
dianag141517
28.01.2023 21:16
Подскажите , как убрать мозайку с фото??...
sonyashestakova
26.03.2020 01:55
Напишіть програму для обчислення виразу, використовуючи алгоритм повного розгалуження. Параметри a i b запитуються у користувача. (2а-b):(a+2b)...
SvetaX16X
03.02.2020 01:07
Ребята ! завтра сдавать надо Надо выполнить 2 задания по отдельности на языке программирования Паскаль...
Syrtou
06.10.2021 13:49
Дано масив: A[i] 3, 8, 5, 7, 6. Визначте результат виконання фрагмента програми:S := 0; For i := 1 To 5 do S := S+ A[i]; *...
kitrfjhhru
29.07.2022 07:15
Даны 2 числа.составить программу выводящую квадрат меньшего числа. ста!...
2006лера
08.12.2021 16:42
Найти максимальный элемент в массиве м[45] блок схема...
1234567891yyttgg
09.09.2020 00:48
Вычислите: 10101010^2 – 252^8 + 7^16. ответ запишите в десятичной системе счисления....
sashapalchak
09.09.2020 00:48
Последовательность чисел строится по следующему алгоритму: первые два числа последовательности принимаются равными 1; каждое следующие число последовательности принимается...
anyasaveleva2
13.05.2021 08:57
Уисполнителя калькулятор две команды, которым присвоены номера: 1. прибавь 3, 2. умножь на 4. выполняя первую из них, калькулятор прибавляет к числу на экране 3, а...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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: