Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nyusha1990
13.09.2020 17:36 •
Информатика
Составьте программу которая формирует массив из 16 случайных чисел от -20 до 20 и подсчитывает количество отрицацельных элементов
Показать ответ
Ответ:
annmslna2044
07.10.2020 09:39
1)
const n=16;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(41)-20;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Массив A:
-14 -7 -20 -3 12 9 -5 -4 7 11 -14 7 6 13 10 12
k = 7
2)
begin
var a:=ArrRandom(16,-20,20); a.Println;
var k:=a.Where(x->(x<0)).Count;
writeln('k = ',k);
end.
Пример:
7 9 -12 12 -7 -14 -16 15 18 -8 -5 -11 1 19 11 5
k = 7
0,0
(0 оценок)
Популярные вопросы: Информатика
timahipoDrakeylol
07.05.2023 10:16
Cоставить программу вычисления следующих выражений: s=1/1i+1/2i+1/3i++1/ni. щас надо...
Kris15kim
06.12.2021 08:47
Написать программу вычисления площади параллелограмма. ниже приведен рекомендуемый вид экрана во время выполнения программы Вычисления объема прямоугольника Введите исходные данные:Длина...
Зайка122222222
02.04.2023 00:10
Выдать на экран сообщение, попадет ли в круг с длиной окружности l(см) точка с координатами (a, b). центр круга расположен в начале координат....
fedorbrednikoff
13.08.2020 05:02
Информатика 4 класс нарисуй рисунок в масштабе с координатами...
Аляска56
08.12.2022 18:46
Обработка экспериментальных данных : для функции, заданной таблично, подобрать эмпирическую зависимость и найти параметры приближающей функции методом наименьших квадратов. №25 x...
Aaastraxan
11.04.2020 11:23
3.Расставьте пункты А, Б, В, Г, Д в порядке возрастания атмосферного давления....
Виктория54345888
11.05.2020 11:41
ЖАЗЫЛЫМ 3-тапсырма. Көп нүктенің орнына тиісті сөздерді қойып жаз.Әбілхан ҚастеевсуретшісеҮлкен ...бейнелеуөнерінің салушы ...
olgaserzhantova
06.02.2023 12:14
54/ Әл-Фарабидің нақыл сөздерін көшіріп жаз. істі ақылға салып, тиянақты атқаруДаналықдеген сөз. Оған білім үйрену арқылы ғана қол жеткі.зуге болады.• Парасат — әр адамның кісілік...
YuliaZagorna
11.11.2020 06:35
Відповіді по цьому зошиту! Дуже до !...
musinasim
11.11.2020 06:35
Бельчонок и ёлочка. ? 4. ответы на вопросы по содержанию прочитанного.1)Как ёлочка оказалась в большом доме?2)Как произошла встреча ёлочки и Кирре?3)О чём они поведали друг другу?4)Как...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n=16;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(41)-20;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Массив A:
-14 -7 -20 -3 12 9 -5 -4 7 11 -14 7 6 13 10 12
k = 7
2)
begin
var a:=ArrRandom(16,-20,20); a.Println;
var k:=a.Where(x->(x<0)).Count;
writeln('k = ',k);
end.
Пример:
7 9 -12 12 -7 -14 -16 15 18 -8 -5 -11 1 19 11 5
k = 7