задачи через Pascal

[MetalDima]

Решите пожалуйста задачи:
1)Вывести последовательность длиной n, в подпрограмме определить наиболее часто повторяющийся элемент(если он не один, то вывести на экран последний из них)

2)Слить в один массив два массива одинаковой длины,чередующие элементы этих массивов.

 

[SNike]

50 баков - и будет готово

Не устраивает - значит смотрим сюда или link removed

На счет $50 - шутка, остальное правда

 

[MetalDima]

{Задача 1}
procedure GetSequence(a:array of integer;count:word);
var i:word;
procedure GetMostOften;
var
i1,i2:word;
maxCount,CurrentCount:word;
maxMember,CurrentMember:integer;
begin
maxCount:=0;
for i1:=count-1 downto 0 do
begin
CurrentMember:=a[i1];
CurrentCount:=1;
for i2:=i1 downto 0 do if a[i2]=CurrentMember then inc(CurrentCount);
dec(CurrentCount);
if CurrentCount>MaxCount then
begin
MaxCount:=CurrentCount;
MaxMember:=CurrentMember;
end;
end;
Writeln(MaxMember,' - ',MaxCount);
end;

begin
for i:=0 to Count-1 do - Вот здесь пишет unknow identifier
writeln(a);
GetMostOften;
end;

 

[Pasha]

Для: MetalDima

var i:integer;
begin
for i:=0 to Count-1 do - Вот здесь пишет unknow identifier
writeln(a[i]);
GetMostOften;
end;