Pascal abc.задайте массив из файла, в котором будут размещены однозначные цифры вашей даты рождения. например, вы родились 5 ноября 1990 года, но массив будет выглядеть следующим образом: 0,5,1,1,1,9,9,0. отсортируйте данный массив, посчитайте сумму его элементов и среднее арифметическое. результат сохраните в файл.

Создаёшь в папке с программой два текстовых файла с именами "1.txt." и "output.txt". в первый записываешь 8 чисел без пробелов и запятых ("22031991", например). type  matrix = array [1..8] of integer; var  f, output: text;   i, n, cc, sum: integer;   c: char;   x: matrix;   ma: real; procedure convert (var c: char; var cc: integer); begin  if c='1' then cc: =1;   if c='2' then cc: =2;   if c='3' then cc: =3;   if c='4' then cc: =4;   if c='5' then cc: =5;   if c='6' then cc: =6;   if c='7' then cc: =7;   if c='8' then cc: =8;   if c='9' then cc: =9;   if c='0' then cc: =0; end; procedure sorting (n: integer; x: matrix); begin  for n: =1 to 7 do begin    if x[n]> x[n+1] then swap(x[n],x[n+1]);   end; end; begin  assign(f, '1.txt');   reset(f);   for i: =1 to 8 do begin    read(f, c);     convert(c,cc);     x[i]: =cc;   end;   close(f);   sorting(n,x);   sum: =x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8];   ma: =sum/8;       assign(output, 'output.txt');   rewrite(output);   writeln(output, sum); writeln(output, ma);   close(output); end.

1.  var a, b : real; begin readln(a, b); writeln(sqrt(a*a + b*b)); end. 2.  var s1, s2, a1, a2 : real; begin readln(s1, s2); if s1 / 3.14159265 < s2 / 4 then writeln('yes') else writeln('no'); end. 3.  var x, y : real; begin readln(x); if x < -10 then y: =234 - x*x*x else y: =x * x + 54; writeln(y); end.