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

@Livefloret · Регистрация: 29.04.2010

Author24 — интернет-сервис помощи студентам

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

@STGE · 29.04.2010, 16:23

Pascal

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;

@Puporev · 29.04.2010, 16:24

Pascal

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.

@Livefloret · 29.04.2010, 16:50 **[ТС]**

ОЙ, спасибо большое

так быстро ответили!

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

Добавлено через 21 минуту
Puporev, а ты составил программку , используя запись массивов??

@STGE · 29.04.2010, 16:54

Livefloret, Puporev не использовал ни того, ни другого

@Puporev · 29.04.2010, 16:54

Livefloret, А где ты массивы увидел? Да и задача не на массивы, а на последовательности.

@Livefloret · 29.04.2010, 17:34 **[ТС]**

Puporev,хм...просто нам дали задания по информатике и сказали, что задачи на массивы...)) вот.. Но всё равно спасибо) теперь бы на счет блок-схемы сообразить) Попробую сама)

@Puporev · 29.04.2010, 17:36

Сообщение от Livefloret

Даны целые числа a1, a2, … ,a45. Получить число отрицательных членов последовательности

Где здесь написано, что дан массив a(45)?

@Livefloret · 30.04.2010, 16:45 **[ТС]**

ну да, нигде не написано! Значит буду делать как последовательность..Пасиб)

@Livefloret 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 12
		1
	Получить число отрицательных членов последовательности 29.04.2010, 16:05. Показов 1746. Ответов 8 Метки нет (Все метки) Помогите, пожалуйста решить задачу в Паскале.. Даны целые числа a1, a2, … ,a45. Получить число отрицательных членов последовательности a1, a2, … ,a35 и число нулевых членов всей последовательности a1, a2, … ,a45. 0

@Livefloret 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 12
	29.04.2010, 16:50 [ТС]	4
	ОЙ, спасибо большое так быстро ответили! Добавлено через 3 минуты А как к этой задачке построить блок-схему???((( Я в массивах вообще не разбираюсь Добавлено через 21 минуту Puporev, а ты составил программку , используя запись массивов?? 0

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	29.04.2010, 16:54	5
	Livefloret, Puporev не использовал ни того, ни другого 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	29.04.2010, 16:54	6
	Livefloret, А где ты массивы увидел? Да и задача не на массивы, а на последовательности. 0

@Livefloret 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 12
	29.04.2010, 17:34 [ТС]	7
	Puporev,хм...просто нам дали задания по информатике и сказали, что задачи на массивы...)) вот.. Но всё равно спасибо) теперь бы на счет блок-схемы сообразить) Попробую сама) 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	29.04.2010, 17:36	8
	Сообщение от Livefloret Даны целые числа a1, a2, … ,a45. Получить число отрицательных членов последовательности Где здесь написано, что дан массив a(45)? 0

@Livefloret 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 12
	30.04.2010, 16:45 [ТС]	9
	ну да, нигде не написано! Значит буду делать как последовательность..Пасиб) 0