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

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

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

Помогите, пожалуйста решить задачу в Паскале.. Даны целые числа a1, a2, … ,a45. Получить число отрицательных членов последовательности a1, a2, … ,a35 и число нулевых членов всей последовательности a1, a2, … ,a45.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
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
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,187
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
Модератор
60572 / 45566 / 31447
Регистрация: 18.05.2008
Сообщений: 109,517
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
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,187
29.04.2010, 16:54 5
Livefloret, Puporev не использовал ни того, ни другого
0
Модератор
60572 / 45566 / 31447
Регистрация: 18.05.2008
Сообщений: 109,517
29.04.2010, 16:54 6
Livefloret, А где ты массивы увидел? Да и задача не на массивы, а на последовательности.
0
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 12
29.04.2010, 17:34  [ТС] 7
Puporev,хм...просто нам дали задания по информатике и сказали, что задачи на массивы...)) вот.. Но всё равно спасибо) теперь бы на счет блок-схемы сообразить) Попробую сама)
0
Модератор
60572 / 45566 / 31447
Регистрация: 18.05.2008
Сообщений: 109,517
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
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
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.