1. в одномерном массиве а(10) вычислить среднее арифметическое квадратов положительных элементов.

Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(10,-50,50); a.println;   a.where(x-> x> 0).select(x-> x*x).average.println end. пример 29 45 -32 -44 -48 25 8 -4 -25 -22 888.75

Pascal abc. var        a: array [1..10] of integer;     i,sum,k: integer; begin        for i: = 1 to 10 do begin                  a[i]: =random(100)-50;                   if a[i]> 0 then begin sum: =sum+sqr(a[i]); inc(k); end;                   write(a[i], ' ');           end;           writeln;           writeln(sum/k); end.

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

решение для 4-байтного представления

запишем двоичное число в форме нормализованного двоичного числа с плавающей точкой

0,110010001*10^1000

10- основание (2дес=10дв)

1000-порядок(8дес=1000дв)

определим машинный порядок:

мп = 1000 + 1000000 = 1001000

запишем число

01001000 0000000 00000001 10010001

порядок          ман                тис                  са