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

17.06.2011, 21:39. **Показов** 992. **Ответов** 3

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

Массив одномерный,n=15ю Элементы вводить с клавиатуры.Найти сумму отрицательных элементов и колличество положительных элементов.Помогите пожалуйста

@lamed · 17.06.2011, 21:50

Pascal

{ Массив одномерный,n=15. Элементы вводить с клавиатуры.
Найти сумму отрицательных элементов и количество положительных элементов. }
const
  n=15;
var
  i, sneg, kpos: integer;
  a: array[1..n] of integer;
begin
  for i:= 1 to n do
    readln(a[i]);
  
  sneg:= 0;
  kpos:=0;
  
  for i:= 1 to n do
    if a[i]<0 then
      sneg:= sneg +a[i]
    else if a[i]>0 then
      inc(kpos);
  writeln(sneg, ' ', kpos);
  readln;
end.

17.06.2011, 22:13

Pascal

var
  a:array [1..10] of integer;
  sum,n,x: integer;
begin
  x:=0;
  sum:=0;
  write('Vvedite a= ');
  for n:=1 to 10 do
      read(a[n]);
  for n:=1 to 10 do
  begin
    if a[n]>0 then Inc(x);
    if a[n]<0 then sum:=sum+a[n];
  end;
  writeln('Kolichestvo pol. = ',x);
  writeln('Summa otric. = ', sum);
  readln;
  readln;
end.

А так можно?Или что-то вроде этого.Если надо подправить,подправьте пожалуйста(нам преподаватель примерно так объясняла-по-другому она не примет:-( )

@lamed · 18.06.2011, 06:56

саша_frog, Единственное, в задании размер массива не 10, а 15

Сообщение от саша_frog

Массив одномерный,n=15

Везде вместо 10 поставьте 15.

саша_frog
		1
	Найти сумму отрицательных элементов и колличество положительных элементов. 17.06.2011, 21:39. Показов 992. Ответов 3 Метки нет (Все метки) Массив одномерный,n=15ю Элементы вводить с клавиатуры.Найти сумму отрицательных элементов и колличество положительных элементов.Помогите пожалуйста

@lamed 298 / 298 / 150 Регистрация: 07.05.2011 Сообщений: 592
	18.06.2011, 06:56	4
	саша_frog, Единственное, в задании размер массива не 10, а 15 Сообщение от саша_frog Массив одномерный,n=15 Везде вместо 10 поставьте 15. 0