Const nx = 50; Var A,B,D:array[1..nx]of integer; i,n,j,m,z,k,m1:integer; Begin WriteLn('Введи количество элементов массива'); Read(n); For i:= 1 to N do begin A[i]:= random(20)-5;write(A[i]:3);end;writeln; For i:= 1 to N do begin z:= A[i];k:=0; For j:= i+1 to N do if A[i] = A[j] then k:= k +1; For j:= 1 to m do if A[i] = B[j] then k:= k +1; For j:= 1 to m1 do if A[i] = D[j] then k:= k +1; if k = 0 then begin m:= m + 1; B[m] := z;end else begin m1:= m1 + 1; D[m1] := z;end; end;writeln('B'); For i:= 1 to m do write(B[i]:3); end.
Но даже если ничего съедобного в лесу не найдешь, то все равно встретишь много интересного. Можно обнаружить следы животного, можно услышать стук дятла или даже увидеть, как мелькает на стволе его красная головка. Можно собрать гербарий из листьев или цветов. Летом в лесу никогда не бывает скучно.Вы бывали летом в лесу? Прогулки по лесу - это так приятно, а наблюдательному человеку еще и интересно. Лес обязательно одарит такого человека своими дарами. Вон под елкой вырос гриб. Бархатная коричневая шляпка, плотная белая ножка. Это белый гриб, можно сказать, король всех грибов. Даже одного гриба достаточно, чтобы мама приготовила вкусный суп. А невдалеке от него еще один красавец. Красная глянцевая шапочка с белыми крапинками так и зовет, так и манит. Но лучше на его зов не поддаваться, это мухомор, он ядовитый. Идешь по лесу и почти все время слышишь, как кричит птица. Это сорока. Она видит приближение человека и начинает галдеть, предупреждает остальных зверей и птиц: " В лесу чужой". Гуляя по лесу, то и дело попадаешь в колючие заросли. Это ежевика, действительно колючее растение, оно больно царапает руки. Зато какие ягоды сладкие. Черные, блестящие, крупные. Лесная малина помельче. Зато по сладости не уступает. А если глянуть под ноги, то можно увидеть и трилистнички земляники, а над ними - маленькие яркие ягодки, такие вкусные и душистые.
Var A,B,D:array[1..nx]of integer; i,n,j,m,z,k,m1:integer;
Begin
WriteLn('Введи количество элементов массива'); Read(n);
For i:= 1 to N do begin
A[i]:= random(20)-5;write(A[i]:3);end;writeln;
For i:= 1 to N do begin
z:= A[i];k:=0;
For j:= i+1 to N do
if A[i] = A[j] then k:= k +1;
For j:= 1 to m do
if A[i] = B[j] then k:= k +1;
For j:= 1 to m1 do
if A[i] = D[j] then k:= k +1;
if k = 0 then begin
m:= m + 1; B[m] := z;end
else begin m1:= m1 + 1; D[m1] := z;end;
end;writeln('B');
For i:= 1 to m do write(B[i]:3);
end.