Определить количество положительных и количество отрицательных элементов массива - Turbo Pascal

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.64/55:

@Вадим993 1 / 1 / 0 Регистрация: 28.01.2012 Сообщений: 41
		1
	Определить количество положительных и количество отрицательных элементов массива 03.06.2012, 22:46. Показов 10317. Ответов 2 Метки нет (Все метки) Определить количество положительных и количество отрицательных элементов массива 0

Заказать работу у эксперта

Лучшие ответы (1)

Сообщение: #3120968

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

03.06.2012, 22:46

Ответы с готовыми решениями:

Определить количество положительных и количество отрицательных элементов последовательности
Задание: Составить программу используя оператор цикла с параметром. Задача: Задана...

Определить что, количество положительных элементов массива больше количества его отрицательных
Составить процедуру,вычисляющую значение true, если количество положительных элементов исходного...

Вычислить сумму и количество положительных, произведение и количество отрицательных элементов массива
Дан целочисленный массив размера N. Вычислить сумму и кол-во положительных, произведение и кол-во...

Найти количество отрицательных и количество положительных элементов двумерного массива.
Найти количество отрицательных и количество положительных элементов двумерного массива.

Kodzaev

3030 / 1916 / 1649

Регистрация: 30.04.2011

Сообщений: 3,060

03.06.2012, 22:53

Сообщение было отмечено Памирыч как решение

Решение

Pascal

Var
x: Array[1..100] of Integer;
i,k1,k2,n: Integer;
BEGIN
Writeln('Введите кол-во элементов: '); Readln(n);
For i:=1 to n do
begin
  Writeln('x[',i,']=');
  Readln(x[i]);
  If x[i]>0 Then Inc(k1);
  If x[i]<0 Then Inc(k2);
end;
Writeln('Кол-во положит: ',k1);
Writeln('Кол-во отриц: ',k2);
Readln
END.

@Вадим993 1 / 1 / 0 Регистрация: 28.01.2012 Сообщений: 41
	03.06.2012, 22:54 [ТС]	3
	Спасибо=) 0

	03.06.2012, 22:54

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

03.06.2012, 22:54

Помогаю со студенческими работами здесь

Подсчитать количество положительных и количество отрицательных элементов массива
В массиве x(n) подсчитать количество положительных k1 и количество отрицательных k2 элементов....

Определить количество отрицательных, количество положительных и количество нулей среди введенных чисел
С клавиатуры вводятся N чисел. Составьте программу, которая определяет количество отрицательных,...

Определить количество отрицательных, количество положительных и количество нулей среди введенных чисел
1) С клавиатуры вводятся N чисел. Составьте программу, которая определяет количество отрицательных,...

Найти количество строк, в которых количество отрицательных элементов больше, чем количество положительных
Найти количество строк, в которых количество отрицательных элементов больше, чем количество...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх