С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 12
1

Получить число отрицательных членов последовательности

29.04.2010, 16:05. Показов 1762. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите, пожалуйста решить задачу в Паскале.. Даны целые числа a1, a2, … ,a45. Получить число отрицательных членов последовательности a1, a2, … ,a35 и число нулевых членов всей последовательности a1, a2, … ,a45.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
29.04.2010, 16:05
Ответы с готовыми решениями:

Получить число отрицательных членов подпоследовательности и число нулевых членов всей последовательности
Program ms1; uses crt; const n=45; var a:array of integer; i,ko,kn:integer; begin clrscr;...

Даны натуральное число n, целые числа a1,...,an. Получить сумму положительных и число отрицательных членов последовательности a1,...,an.
Помогите пожалуйста решить задачу... Даны натуральное число n, целые числа a1,...,an....

Даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных членов последовательности a1,...,an
даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных...

Получить сумму положительных и число отрицательных членов указанной последовательности
Дано натуральное число n, целые числа a1, a2, ..., an. Получить сумму положительных и число...

8
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
29.04.2010, 16:23 2
Pascal
1
2
3
4
5
6
7
8
9
10
i:=1;
while i<=45 do
begin
write('введите число: ');
readln(a);
if a<0 then inc(k);
while i<=35 do
if a=0 then inc(l);
inc(i);
end;
1
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
29.04.2010, 16:24 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
const n=45;
var a,ko,kn,i:integer;
begin
clrscr;
writeln('Введите ',n,' целых чисел:');
ko:=0;
kn:=0;
for i:=1 to n do
 begin
  write('a=',i:2);
  readln(a);
  if(a<0)and(i<=35)then ko:=ko+1;
  if a=0 then kn:=kn+1;
 end;
writeln('Количество отрицательных в первых 35=',ko);
write('Количество нолей всей последовательности=',kn);
readln
end.
1
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 12
29.04.2010, 16:50  [ТС] 4
ОЙ, спасибо большое так быстро ответили!

Добавлено через 3 минуты
А как к этой задачке построить блок-схему???((( Я в массивах вообще не разбираюсь

Добавлено через 21 минуту
Puporev, а ты составил программку , используя запись массивов??
0
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
29.04.2010, 16:54 5
Livefloret, Puporev не использовал ни того, ни другого
0
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
29.04.2010, 16:54 6
Livefloret, А где ты массивы увидел? Да и задача не на массивы, а на последовательности.
0
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 12
29.04.2010, 17:34  [ТС] 7
Puporev,хм...просто нам дали задания по информатике и сказали, что задачи на массивы...)) вот.. Но всё равно спасибо) теперь бы на счет блок-схемы сообразить) Попробую сама)
0
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
29.04.2010, 17:36 8
Цитата Сообщение от Livefloret Посмотреть сообщение
Даны целые числа a1, a2, … ,a45. Получить число отрицательных членов последовательности
Где здесь написано, что дан массив a(45)?
0
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 12
30.04.2010, 16:45  [ТС] 9
ну да, нигде не написано! Значит буду делать как последовательность..Пасиб)
0
30.04.2010, 16:45
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
30.04.2010, 16:45
Помогаю со студенческими работами здесь

Получить число отрицательных членов и число членов, принадлижащих отрезку {1,2}
Даны натуральное число n, действительные числа a1,..,an. В последовательности a1,..,an, все не...

Получить число отрицательных членов и число членов, принадлежащих отрезку [1, 2]
Доброго времени суток,помогите решить задание Общая постановка. Дана последовательность чисел...

Получить число отрицательных и нулевых элементов заданной последовательности
Даны натуральные числа n и k , и последовательность целых чисел x1,x2, ... xn. Получить число...

Получить сумму положительных и число отрицательных элеметов в последовательности
Даны натуральное число n, целые числа а1,..., аn. Получить сумму положительных и число...

Найти число членов последовательности b1..b40, больших ср. арифметического всех членов последоват. а1..a50
Даны две целочисленные последовательности а1… а50 и b1…b40. Определить число членов...

Найти сумму положительных и количество отрицательных членов последовательности
Даны целые числа A1, A2, …, An. Получить сумму положительных и число отрицательных членов...


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Блоги программистов
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
Полезные поделки на Arduino, которые можно сделать самому
raxper 06.01.2025
Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .
Подборка решений задач на Python
IT_Exp 06.01.2025
Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .
С чего начать программировать микроконтроллер­­ы
raxper 06.01.2025
Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер
inter-admin 06.01.2025
Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .
Обновление сайта www.historian.b­y
Reglage 05.01.2025
Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .
Как использовать GraphQL в C# с HotChocolate
Programming 05.01.2025
GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .
Модель полного двоичного сумматора с помощью логических операций (python)
AlexSky-coder 04.01.2025
def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()
Это мы не проходили, это нам не задавали...(аси­­­­­­­­­­­­­­хро­н­н­ы­й счётчик с управляющим сигналом задержки).
Hrethgir 04.01.2025
Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .
Руководство по созданию бота для Телеграм на Python
IT_Exp 04.01.2025
Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru