var a:array[1..20] of integer; i,j,k,l,s:integer; begin for i:=1 to 20 do begin randomize; a[i]:=random(101)-50; write(a[i],' '); end; k:=0; l:=0; for i:=1 to 20 do begin if l<k then l:=k; k:=0; for j:=1 to 20 do if a[i]=a[j] then k:=k+1; end; Writeln; writeln(l); for i:=1 to 20 do if i mod 2 = 0 then s:=s+a[i]; writeln(s); end.
Выводит массив из рандомных 20 чисел между -50 и 50
ПОСЛЕДОВАТЕЛЬНОСТЬ ФИБОНАЧЧИ, математическая ПОСЛЕДОВАТЕЛЬНОСТЬ, каждый член которой является суммой двух предыдущих. Таким образом, если энный член последовательности обозначается хn, то для всей последовательности справедливым будет уравнение: хn+2=хn+хn+1, первыми двумя членами которого будут x1=l и x2=1. Порядок последовательности при этом таков: 1, 1, 2, 3, 5, 8, 13, 21..., следующим числом будет 34, т. к. сумма 13 и 21 равна 34 и т.д. Когда число n становится очень большим, отношение соответствующих членов устремляется к величине (Ц5+l)/2. Это соотношение называется золотым. В природе последовательность Фибоначчи можно проследить на примерах спирального развития сегментов раковины и лепестков подсолнуха, расходящихся лучами из одной точки в центре цветка. см. также ЗОЛОТОЕ СЕЧЕНИЕ.
var a:array[1..20] of integer;
i,j,k,l,s:integer;
begin
for i:=1 to 20 do begin
randomize;
a[i]:=random(101)-50;
write(a[i],' ');
end;
k:=0;
l:=0;
for i:=1 to 20 do begin
if l<k then l:=k;
k:=0;
for j:=1 to 20 do
if a[i]=a[j] then k:=k+1;
end;
Writeln;
writeln(l);
for i:=1 to 20 do
if i mod 2 = 0 then s:=s+a[i];
writeln(s);
end.
Выводит массив из рандомных 20 чисел между -50 и 50
допустим
0 1 -2 1 2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6 1
Затем выводит макс. кол-во похожих
0 1 -2 1 2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6 1
3
И теперь сумму четных элементов
0 1 -2 1 2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6 1
1+1+3+4+8+10-14-11+45+1=48