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

Задача №65. Количество положительных элементов Числа следует выводить через пробел. Все числа целые, по модулю не больше 231-1. Количество элементов массива не превышает 10000.
Дан массив, состоящий из целых чисел. Напишите программу, которая подсчитывает количество положительных чисел среди элементов массива.

Входные данные
Сначала задано число N — количество элементов в массиве (1≤N≤10000). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел.

Выходные данные
Необходимо единственное число - количество положительных элементов в массиве.

Примеры
входные данные
5
1 2 3 -1 -4

выходные данные
3
НА С

👇
Ответ:
lanka202
lanka202
30.07.2021

#include <iostream>

using namespace std;

int main() {

int n;

cin >> n;

int a, p=0;

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

cin >> a;

if (a > 0)

{

p++;

}

}

cout << p;

}

4,7(93 оценок)
Открыть все ответы
Ответ:
димон7777
димон7777
30.07.2021
//Язык С#

//0 считается четным числом

//Поскольку вы не указали чем заполнять массив, заполнил его рандомными значениями

using System;

namespace 4
{
class Program
{
static void Main(string[] args)
{
Console.Write("Введите N: ");
int N = Convert.ToInt32(Console.ReadLine());
Console.WriteLine();

Random Rand = new Random();

int[] Array = new int[N];
int k = 0;

for (int i = 0; i < N / 2; i++)
{
Array[k] = Rand.Next(1, 100);
Console.WriteLine("Элемент " + k + " = " + Array[k]);
k += 2;
}

Console.ReadKey();
}
}
}
Cначала задано число n - количество элементов в массиве (1 необходимо вывести все элементы массива с
Cначала задано число n - количество элементов в массиве (1 необходимо вывести все элементы массива с
4,8(48 оценок)
Ответ:
UltraTwItTeR
UltraTwItTeR
30.07.2021
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Укажите n>11:');
  var c:=ArrRandom(n,-50,50); c.Println;
  var a:=new integer[n];
  for var i:=0 to n-1 do
    if i.Between(2,11) then a[i]:=Sqr(c[i]) else a[i]:=c[i]-1;
  a.Println;
  var imax:=a.IndexMax;
  a[imax]:=-a[imax];
  Writeln('Максимальный элемент заменен на ',a[imax]);
  var imin:integer;
  (imin,imax):=(a.IndexMin,a.IndexMax);
  if imin>imax then Swap(imin,imax);
  for var i:=imin+1 to imax-1 do a[i]:=0;
  a.Println
end.

Пример
Укажите n>11: 15
-47 11 -42 23 29 12 3 -24 -20 11 -4 38 42 -26 -28
-48 10 1764 529 841 144 9 576 400 121 16 1444 41 -27 -29
Максимальный элемент заменен на -1764
-48 10 -1764 0 0 0 0 0 0 0 0 1444 41 -27 -29
4,5(43 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ