Поиск в одномерном массиве

[Joxter]

Задан целочисленный одномерный массив a из n элементов.
Найти значение максимального элемента среди элементов,
кратных k1 и расположенных до последнего отрицательного элемента.

очень нужно, уже не первый день делаю, и все не то...
надо еще пару процедур вставить. ПОМОГИТЕ!)

[Sm1Le]

паскаль ??

[Sm1Le]

N:=20;
otr:integer;
i,y:integer;
for i:=1 to N do 
 begin
  if arr[i]<0 then 
   begin
     i:=x;
   end;
 end;
max:=arr[1];
For i:=2 to x do 
 begin
  if ((arr[i] mod k1=0) and ( arr[i]>max) ) 
   begin
    max:=arr[i];
   end;
 end;

- дооформляешь =)

[Joxter]

у меня примерно так, только если нет отрицательных - выводит "Поиск невозможен" (ну так и надо)... но если в массиве есть отрицательный, но нет кратных К1, он выдает максимальный элемент

[Joxter]

вот со всеми этими "нет отрицательного", "нет кратных"... у меня все в кашу превращается)

[Joxter]

никто не может побольше написать?

[Joxter]

Тем кому понадобится, даю код

program cond2;
{$APPTYPE CONSOLE}

uses
  SysUtils;

const
max=10;

var
a: array [1.. max] of integer;
f,g: text;
n,k1,i,kmax:integer;
flag,kkrat:boolean;
begin
assignfile(f,'D:\УЧЕБА\cond2\cond2vvod.txt');
reset(f);
assignfile(g,'D:\УЧЕБА\cond2\cond2vivod.txt');
rewrite(g);
readln(f,n,k1);
for i:=1 to n do
 read(f,a[i]);
  end;}
//КОД
{i:=n;
flag:=true;
while(flag=true and (i >= 1)) do
 begin
  if(a[i] < 0) then
   flag := false;
   i:=i-1;
 end;
  if(flag=true) then
  writeln(g,'    Поиск не возможен!')
 else
  begin
    kkrat := false;
	  i:=i+1;

     while(not kkrat and (i >= 1)) do  //как только kkrat=true - цикл заканчивается
	   begin
		   if((a[i] mod k1) = 0) then
		   begin
			   kmax := a[i];
			   kkrat := true;
		   end;
		   dec(i);
	   end;

	   {if kkrat=true then  //нахождение кратного-максимального
	    begin
	      for i := i downto 1 do
		       if(((a[i] mod k1) = 0) and (a[i] > kmax)) then kmax := a[i];
           if kmax<>0 then
	          writeln(g,'     Вот, то, что тебе нужно! - ', kmax)
           else
		        writeln(g,'     Тут его нет... :`(');
  	 	end
	   else
		   writeln(g,'Тут его нет... :`(');}

{writeln(g,'Данный делитель: ',k1);
write(g,'Массив: ');
for i:=1 to n do
 write(g,' ',a[i]);
closefile(f);
closefile(g);
END.

только все {} скобки удалите