Локальные минимумы и их номера.

[f4rr3l]

Парни пожалуйста помагите с задаяей. Очень-очень нужно.

В массиве действительных чисел B[n] найти все локальные минимумы и их номера.
Вывести на экран исходный массив и искомые минимумы с номерами.

[Tkirill]

а что значит локальные минимумы?)

[Tkirill]

uses crt;
var
mas:array[1..100] of real;
n,i,j,kol:integer;
min:real;
begin
clrscr;
write(' Kolichestvo elementov v massive -> ');
readln(n);
writeln;
writeln;
for i:=1 to n do
begin
write(' -> ');
readln(mas[i]);
writeln;
end;
writeln;
writeln;
for i:=1 to n do
write(mas[i]:3:1,' ');
writeln;
writeln;
for i:=2 to n-1 do
begin
if (mas[i]<mas[i+1]) and (mas[i]<mas[i-1]) then writeln('mas[',i,']','=',mas[i]:3:1);
end;
writeln;
readln;
end.

[capta1n]

Мой вариант:

program mass;
const
 n = 1000;
var
 B : array [1..n] of ^real;
 i, k : word;
 f : real;
begin
 writeln ('Vvedite 4isla v massiv');
 writeln ('Zakon4ite vvod lubim simvolom');
 i:=0;
 repeat
   {$I-}
   readln(f);
   {$I+}
   if IOResult<>0 then break;
   i:=i+1;
   new (B[i]);
   B[i]^:=f
 until i=n;

 readln;
 write ('vash massiv: ');
 for k:=1 to i do write (B[k]^:0:2,'|');
 writeln;
 for k:=2 to i-1 do
  if (B[k]^<B[k-1]^) and (B[k]^<B[k+1]^) then
   writeln ('B[',k,']=',B[k]^:0:2,' lok. min');
 readln
end.

[f4rr3l]

Tkirill and capta1n парни огромное спасибо.

[capta1n]

Вам спасибо - все же это набор опыта в программировании, ибо мне это очень нужно Обращайтесь еще