Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов

@Сгущенка · Регистрация: 02.12.2013

Не запускается программа, не понимаю почему. Задача и решение ниже.

Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов.

Pascal

var
n,i:integer;
a:array[0..4] of integer;
function FindMax(c:integer):integer;
var w:integer;
begin
if c>1 then
 begin
  w:=FindMax(c-1);
  if a[c]<w then FindMax:=w
  else FindMax:=a[c]
 end
else FindMax:=a[1]
end;
begin
readln(n);
setlength(a,n+1);
for i:=1 to n do
readln(a[i]);
writeln(FindMax(n));
end.

@Puporev · 20.01.2014, 08:00

Сообщение от Сгущенка

не понимаю почему.

Потому что неправильно написана, ошибки грубые. Массив описан как статистический в диапазоне 0..4, однако зачем-то выделяется под него память

Pascal

1	setlength(a,n+1);

хотя в простом АВС нет динамических массивов
Несмотря на то что индексы с 0, везде эксплуатируется индекс 1.
Короче сплошной бардак

Pascal

var n,i:integer;
    a:array[1..20] of integer;
function FindMax(c:integer):integer;
var w:integer;
begin
if c>1 then
 begin
  w:=FindMax(c-1);
  if a[c]<w then FindMax:=w
  else FindMax:=a[c]
 end
else FindMax:=a[1]
end;
begin
write('Размер массива n=');
read(n);
writeln('Введите элементы массива, целые числа');
for i:=1 to n do
read(a[i]);
writeln('Max=',FindMax(n));
end.

@Сгущенка · 20.01.2014, 17:34 **[ТС]**

Спасибо большое

@Сгущенка -7 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 15
	20.01.2014, 17:34 [ТС]	3
	Спасибо большое 0

Опции темы