М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
лаброри
лаброри
08.04.2021 01:56 •  Информатика

Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -10 до 10. посчитайте в этом массиве количество положительных и количество отрицательных значений

👇
Ответ:
maks737
maks737
08.04.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 отрицательных
4,6(100 оценок)
Открыть все ответы
Ответ:
Саша22877324516
Саша22877324516
08.04.2021

1. Корпус, блок-живлення, материнська плата, оперативна память, відеокарта, звукова-карта, жорсткий диск, дисковод, система охолоджування

2. Материнська плата, процессор, оперативна память, блок-живлення, зовнішний диск з данними, система охолоджування.

3. Функціональна частина компютера, що призначенна для інтерпретації команд.

4. 1. Проінспектує задню частину корпусу системного блоку на наявність відеовиходів.

2. Знайдіть VGA-розєм на моніторі.

3. Візьміть відповідний VGA-кабель, який йде в комплекті з монітором, і підключіть перший його кінець в монітор, а другий — в комп'ютер.

4. В кожному компютері є USB-Port. У вільний роз'єм необхідно підключити кабель від клавіатури. Windows встановить необхідні драйвера і потім покаже повідомлення, що пристрій готовий до використання.

Объяснение:

4,8(39 оценок)
Ответ:
pandokokos22jopar
pandokokos22jopar
08.04.2021

Задача 1:

program HW1;

var a,b,c:integer;

begin

   write('Ведите три целых числа через пробел: '); readln(a,b,c);

   write('Числа, попадающие в отрезок [1,3]: ');

   if (a >= 1) and (a <= 3) then write(a, ' ');

   if (b >= 1) and (b <= 3) then write(b, ' ');

   if (c >= 1) and (c <= 3) then write(c, ' ');

end.

Задача 2:

program HW2;

var a,b:real;

var c:integer;

begin

   write('Ведите две стороны прямоугольника через пробел: '); readln(a,b);

   writeln('Что трубуется вычислить?');

   writeln('1) Площадь прямоугольника');

   writeln('2) Периметр прямоугольника');

   writeln('3) Диагональ прямоугольника');

   readln(c);

   if c = 1 then writeln('Площадь прямоугольника равна ', a*b:1:1)

   else if c = 2 then writeln('Периметр прямоугольника равна ', 2*(a+b):1:1)

   else if c = 3 then writeln('Диагональ прямоугольника равна ', sqrt(sqr(a)+sqr(b)):1:1)

   else writeln('Введёно некорректное значение.')

end.

Задача 3:

program HW3;

var a,i:integer;

begin

   a := 0;

   for i := 1 to 99 do

       begin

           if (i mod 2 ) <> 0 then a := a + i

       end;

   writeln('Cуммa ряда 1, 3, 5..99: ', a);

end.

4,8(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ