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

  • Автор темы MetalDima
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

MetalDima

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

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

MetalDima

#3
{Задача 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;
 
P

Pasha

#4
Для: MetalDima
Код:
var i:integer;
begin
for i:=0 to Count-1 do - Вот здесь пишет unknow identifier
writeln(a[i]);
GetMostOften;
end;
 
Статус
Закрыто для дальнейших ответов.