Аалфавитный подход позволяет вычислить количество информации, содержащейся в тексте, сложив информационные объёмы каждого символа, при этом содержание текста не учитывается.
Using System;
public class Test
{
public static int Main()
{
Random rnd=new Random(DateTime.Now.Millisecond); // иниц. датчика
int n=Convert.ToInt32(Console.ReadLine());
int[] Arr=new int[n];
for(int i=0; i<Arr.Length; i++) {
Arr[i]=rnd.Next(1,99);
Console.Write(Arr[i]+" ");
}
Console.WriteLine();
for(int i=0; i<Arr.Length; i++) {
if(Arr[i]%2==0) {
int j=(int)Math.Round((double)Math.Sqrt(Arr[i]));
if(j*j==Arr[i]) Console.Write(Arr[i]+" ");
}
}
Console.WriteLine();
return 0;
}
}
Var a: array[0..10] of integer;
i, j, k: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(90) - 45;
writeln('[', i, '] => ', a[i]);
end;
for i := 0 to 10 do
if (a[i] < 0) then inc(j)
else if (a[i] > 0) then inc(k);
writeln(j, ' ', k);
<span>end.
работает у меня:)</span>
<span>Луна спутник земли. Так?</span>