Ask___
Advice
Главная
О сервисе
О нас
Правила пользования сайтом
Авторское право
Политика конфиденциальности
Ключ для indexNow
Скрипт от рекламы
Задать вопрос
Искать
Главная
Информатика
Ответы на вопрос
secretar62
05.09.2021
?>
решить, нужно нужно именно само решение)
Информатика
Ответить
Ответы
Любовь
05.09.2021
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:=ArrRandom(100,-10,10);
a.Println;
Writeln(a.Where(x->x>0).Count,' положительных, ',
a.Where(x->x<0).Count,' отрицательных')
end.
Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
решить, нужно нужно именно само решение)
Ваше имя (никнейм)*
Email*
Комментарий*
Согласен с
политикой конфиденциальности
Отправить вопрос
Популярные вопросы в разделе
Можите сделать все 3 до 23: 00 70
Автор: steff77
Алина отправилась в магазин за покупками. Девушка купила пачку молока за 38 руб., две упаковки замороженных овощей, заплатив за каждую 114, 22 руб. Три пачки 2 % творога, заплатив за каждую пачку 4...
Автор: Baidina
Pascal abc. пусть даны целые числа a1, .получите новую последовательность, выбросив из исходной максимальный и минимальный члены.
Автор: Bella Sergei
Составить блок-схему решения : дан массив, состоящий из 10 произвольных чисел. найти среднее этих чисел.
Автор: evlampin
определите правило шифрования и расшифруйте слова: васывоипоувбцещпрелдиыуе. кпождьищраоывуашндизе.
Автор: phiskill559
15 Технические и программные средства телекоммуникационных технологий 16 Представление о программных средах компьютерной графики
Автор: grebish2002
Найдите значения логического выражения ( X < 3 ) & ( X < 2 ) для указанных значений числа X: а) 1;б) 2;в) 3;г) 4.
Автор: terehin863
Найдите значение переменной а после выполнения программы: var a, b: integer; begin a: =1848; b: =(a div 100)*10+9: a: =(10*b-a) mod 100; writeln (‘a=’, a); writeln (‘b=’, b); end.
Автор: vodolaz8384
Запиши число 13674 в развёрнутом виде, начиная со старшего разряда.
Автор: vik1223
Определи значение радиуса круга, если площадь равна 78.5.r**2=s/pi5634
Автор: Avdeeva Yelizaveta
Рассмотри рисунок и заполни таблицу
Автор: denis302007
По рисунку 4 соотнесите характеристики по поколениям. А. 1-B, 2-C, 3-E, 4-A, 5-DB. 1-D, 2-A, 3-C, 4-E, 5-BС. 1-B, 2-A, 3-C, 4-E, 5-D
Автор: siren89
Племя мульти имеет 16 символьный алфавит. Племя пульти использует 128 символьный алфавит. Вожди племён обменялись письмами. Письмо племени Мульти содержало 100 символов, а письмо племени Пульти 56 си...
Автор: ktatarinova
Публікації, що розроблені з використанням комп'ютерних технологій називаються
Автор: Никита227
Сделайте Робот у верхней стенки прямоугольника 5х2. Может быть не больше одной горизонтальной стенки. Надо покрасить обе нижние клетки.
Автор: PopovViktorovna
▲
begin
var a:=ArrRandom(100,-10,10);
a.Println;
Writeln(a.Where(x->x>0).Count,' положительных, ',
a.Where(x->x<0).Count,' отрицательных')
end.
Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных