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

[lavric666]

Условия:
1.
а)Найти сумму и кол-во отрицательных элементов массива.
б)В одномерном массиве найти минимальные элементы массива и его номер.

2.Найти количество локальных минимумов в одномерном массиве.

Program Z1;
var a,b,c:integer;

Как вообще начинать ?

[p51x]

ну потрудитесь опустить глаза вниз страницы, там есть же список похожих тем...

[lavric666]

Ну нету там таких...=(

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

ну потрудитесь опустить глаза вниз страницы, там есть же список похожих тем...

Там нету похожих. Условие в любом случае другое...

[NinaSSS]

1 задача

program jfhgkh;
var b:array[1..50] of integer; s,i,k,a,n,min,c:integer;
begin
readln(n);

for i:=1 to n do begin
readln(b[i]);
end; writeln('massiv');
for i:=1 to n do begin
write(b[i]:3);
end; writeln;
k:=0;s:=0;
 for i:=1 to n do begin
   if b[i]<0 then begin k:=k+1; s:=s+b[i];end;
   end;
   writeln('kol-vo otriz  ',k);  writeln('summa otriz=',s);
   min:=b[1];
   for i:=1 to n do begin
   if b[i]<min then begin min:=b[i]; c:=i;end;end;
   writeln('minimum=',min,'  nomer=', c);
   end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

2 задача

program jfhgkh;
var b:array[1..50] of integer; i,k,n:integer;
begin
readln(n);

for i:=1 to n do begin
readln(b[i]);
end; writeln('massiv');
for i:=1 to n do begin
write(b[i]:3);
end; writeln;
k:=0;
 for i:=2 to n-1 do begin
   if (b[i]<b[i-1])and (b[i]<b[i+1])then begin k:=k+1; end;
   end;
   writeln('kol-vo lokal minimumov  ',k);
   end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

c поиском номера минимиальноо есть косячок!
попробуйте, что выдаст программа, если минимальный элемент массива ПЕРВЫЙ.
А знаете почему? Вы написали min := b[1]; а проиницилизировать c забыли!
и, если код ни разу не зайдёт в веточку по if b[i]<min then ...
с так и останется мусорным значением (в Pascal компилятор, скорее всего, туда поместит ноль,но суть не в этом - нельзя использовать неиницилизированные переменные! Впрочем, судя по "k:=0;s:=0;" - Вы об этом правиле знаете!! )

и ещё. во всех случаях, когда нужно найти номер минимального (или максимального элемента) ГОРАЗДО удобнее хранить в переменной не само минимальное значение, а его номер (индекс).
сравните:

   c:= 1;
   for i:=2 to n do
      if b[i]<b[c] then c:=i;

   writeln('minimum=', b[c],'  nomer=', c);

Вы согласитесь, что код стал проще, надёжнее и нагляднее?..

[lavric666]

Спасибоооу =)

[NinaSSS]

Простите с номером накосячила, быстро делала, а в остальном вполне уместен и предложенный алгоритм. Сергей, что за кнопочка с решеткой? я же вроде бы ставлю решетку.