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

На языке с++. с клавиатуры вводятся n произвольных чисел. сколько среди них положительных, отрицательных и равных 0?

👇
Ответ:
sashenkakoster
sashenkakoster
12.07.2021
Уточнение

Предупреждаю сразу об одной ошибке (благо, не влияющая на работу программы), с которой справится довольно трудно - это окончание в ответе. Например "1 чисел", "2 чисел". На исправление этого ушло бы ещё строк 30-100 кода, так что я не стал заморачиваться.

Код

#include <iostream>

#define MAX_SIZE 16  // тут объявляем N, то есть сколько итераций ввода нам нужно

using namespace std;

int main()

{

   setlocale(LC_ALL, "Russian"); // включение русского языка в консоли

   int N[MAX_SIZE] = {0}; // заполнение массива нулями

   int minusValue = 0, plusValue = 0, nullValue = 0;

   for(int i = 1; i < MAX_SIZE; i++){

       cout << "[" << i << "]-й элемент: ";

       cin >> N[i];

       

       if(N[i] > 0){ plusValue = plusValue + 1; }

       else if(N[i] < 0){ minusValue = minusValue + 1; }

       else if(N[i] == 0){ nullValue = nullValue + 1; }

   }

   cout <<

   plusValue << " положительных чисел, " <<

   minusValue << " отрицательных чисел и " <<

   nullValue << " чисел, равных нулю."

   << endl;

   return 0;

}

Проверка

[Скриншот]


На языке с++. с клавиатуры вводятся n произвольных чисел. сколько среди них положительных, отрицател
4,8(28 оценок)
Открыть все ответы
Ответ:
ketti336
ketti336
12.07.2021

При определении форматирования в зависимости от условия можно управлять такими параметрами как: формат числа, параметры шрифта, параметры границ ячейки, параметры заливки ячейки. Для установления условного форматирования необходимо обратиться к группе «стили» закладки «главная» на ленте инструментов.

Для выполнения условного форматирования необходимо:

1.     Выделить ячейку, для которой устанавливается условное форматирование;
2.     Вызвать диалоговое окно:

3.    В открывшемся окне нажать кнопку «создать правило»

4.     В открывшемся диалоговом окне установить правила форматирования:

4,4(1 оценок)
Ответ:

//Задача 1

begin

 var a := ArrRandom(20, -20, 20).Println;

 Println(a.Min, ' ', a.Max);

end.

//Задача 2

begin

 var a := ReadArrInteger(10);

 a.Where(p -> p.IsOdd).Count.Println;

end.

//Задача 3

begin

 SeqGen(90, 10, x -> x + 1).Where(x -> x mod 3 = 0).Println;

end.

//Задача 4

begin

 ArrRandom(10,-20,20).Println;

end.

//Задача 5

begin

 var (a, b) := ReadInteger2;

 Range(a, b).Product.Println

end.

//Задача 4

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   sum += i;

   count += 1;

   n := n div 10;

 end;

 Writeln('Сумма цифр: ', sum);

 Writeln('Количество: ', count);

end.

//Задача 7

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   if not Odd(i) then count += 1;

   n := n div 10;

 end;

 if count <> 0 then Writeln('True')

 else Writeln('False');

end.

Задача 8

begin

 var n := ReadInteger;

 for var i := 1 to n do

 begin

   Println('Я НЕ учусь программировать');

 end;

end.

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