немного переделать (Делфи7)

[Joxter]

Приветствую) Вот есть программка, работает исправно) Так её надо упростить... а именно убрать функции, и было бы замечательно если ввод/вывод файловый сделать)
Я сам с процедурами еще не занимался "это мы не проходили, это нам не задавали"... *а стыдно*... а ввод с выводом не получается, предполагаю, что из-за не знании функций.
Товарищи)не могли бы помочь в убирании функции?)

Program p;

const MAX = 10;
type mas = array[1..MAX] of integer;

procedure arinput(const n:byte; var A:mas);
var i:byte;
begin
    for i := 1 to n do
		read(A[i]);
end;

function isnegative(const n:byte; var A:mas; var i:byte):boolean;
var flag:boolean;
begin
	i := n;
	flag := true;
	while(flag and (i >= 1)) do
	begin
		if(A[i] < 0) then
			flag := false;
		i := i - 1;
	end;
	isnegative := flag;
end;

function findfkrat(const n:byte; var A:mas; var k,mmax:integer; var i:byte):boolean;
var flag:boolean;
begin
	flag := false;
	i := i + 1;
	while(not flag and (i >= 1)) do
	begin
		if((A[i] mod k) = 0) then
		begin
			flag := true;
			mmax := A[i];
		end;
		i := i - 1;
	end;
	findfkrat := flag;
end;

procedure findmax(const n:byte; var A:mas; var k,mmax:integer; var i:byte);
var p:byte;
begin
	for p := i downto n do
		if(((A[p] mod k) = 0) and (p >= 1)) then
			mmax := A[p];
end;

var
	a:mas;
	i:byte;
	k1,kmax:integer;
	flag,kkrat:boolean;

BEGIN
   writeln('Please enter k1: ');
   readln(k1);
   writeln('Please enter elements of array A[', MAX, ']');
   arinput(MAX, a);
   flag := isnegative(MAX, a, i);
   if(flag) then
	   writeln('There are not negative elements, search is impossible')
   else
   begin
	   kkrat := findfkrat(MAX, a, k1, kmax, i);
	   if(kkrat) then
	   begin
	    findmax(MAX, a, k1, kmax, i);
	    writeln('Max element krat k1 is: ', kmax);
		end
	   else
		   writeln('There are not elements krat k1!');
   end;
END.

да.. вот условие задачи...

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

Заранее спасибо)

[Joxter]

мндэ.. 38 просмотров..

[Summerrain]

Тебе еще надо эту прогу переделывать ???
Просто могу помочь.
Скажи если надо.
Исправленну б потом здесь напишу.

[Joxter]

Summerrain, ДА) Было бы здорово)

[Summerrain]

Готово переделал

[Summerrain]

И на будущее это ПАСКАЛЬ а не ДЕЛФА

[Joxter]

допустим, спасибо)

[Summerrain]

Нет проблем обращайся