Составить программу формирования массива а из n случайных вещественных чисел, сделать возможным его редактирование. вычислить сумму дробных частей положительных элементов массива.

{$apptype console} const     n = 13; var     a: array[1..n] of real;     i,c: integer; procedure zapolneniernd(); var i,j: integer; begin randomize; for i: = 1 to n do       a[i]: =random*21-10; end; procedure bbibod(); var i,j: integer; begin for i: = 1 to n do       write(a[i]: 4: 1,' '); writeln; end; procedure re(); begin write('i = '); readln(i); write('a[',i,'] = '); readln(a[i]); end; procedure sf(); var     i: integer;     s: real; begin s: =0; for i: = 1 to n do       if a[i] > 0 then s: =s+frac(a[i]); writeln('s = ',s); end; begin zapolneniernd(); bbibod(); repeat writeln; writeln('1 - заполнить массив случайными числами'); writeln('2 - ввести новое значение заданного элемента'); writeln('3 - вычислить сумму дробных частей положительных элементов массива. '); writeln('4 - вывод массива'); writeln('9 - выход'); readln(c); case c of 1:   begin   zapolneniernd;   bbibod;   end; 2: re; 3:   begin   sf();   end; 4: bbibod; end until c = 9; end.

Оржественная церемония открытия первых зимних олимпийских игр состоялась в шамони 25 января 1924 года.  на парижской сессии 1922 года было принято решение о проведении таких соревнований под названием «международная спортивная неделя по случаю viii олимпиады