const n=20;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
begin
a[i]:=random(31)-10;
write(a[i]:4);
end;
end.
Пример:
7 8 12 16 8 16 6 16 3 9 10 1 3 -1 17 -9 19 -2 1 4
Var i, s: integer;
a: array[1..10] of integer;
begin
for i := 1 to 10 do begin
a[i] := random(10) - 5;
if(a[i] < 0) and (i mod 2 = 0) then s := s + a[i];
write(a[i]:3);
end;
writeln(#10, 'Сумма отрицательных элементов: ', s);
<span>end.</span>
Двоичная запись этого числа имеет вид 1111 1111 1100 0000: чтобы число оказалось четырёхзначным в шестнадцатеричной системе счисления, его двоичная запись должна состоять из четырех групп по 4 двоичные цифры, чтобы было максимальным – нули должны стоять в конце.
1111 -> F
1111 -> F
1100 -> C
0000 -> 0
Искомое число
Program ch;
var x,y: real;
begin
write('x='); readln(x);
write('y='); readln(y);
if ( ( y*y>=1-x*x) and (y>=0) and (y<=2) and (x>=-2) and (x<=2))
then writeln('true')
else writeln('false');
end.