Исло m называется средним арифметическим двух чисел a и b, если m равно (a + b) / 2. васе на день рождения подарили два числа a и b. именинник легко вычислил их среднее арифметическое и так обрадовался, что потерял число b. васе восстановить потерянное число.

Пусть среднее арифметическое, посчитанное васей, равно х, тогда: (a + b) / 2 = х a + b = 2x b = 2x - a

В

1) program gsdn; var k: integer;     z,n,i,l,s: real; begin k: =0; l: =5.6; s: =0; repeat k: =k+1; n: =0.3; i: =l+(n*k); s: =i+s; writeln(i); until i=9.8; writeln(s); end.2)  program afaf; var k,h: integer;     z,n,i,l,s,y: real; begin k: =0; h: =0; l: =8.5; s: =0; repeat k: =k+1; n: =0.1; i: =l+(n*k); s: =i+s; until i=40.9; k: =0; h: =0; l: =1; y: =1; repeat k: =k+1; n: =0.1; i: =l+(n*k); y: =i*y; until i=3; if y-s> 0 then writeln('сумма ряда 8.5, 8..9 меньше произведения чисел от 1 до 3 с шагом 0.25'); if y-s< 0 then writeln('сумма ряда 8.5, 8..9 больше произведения чисел от 1 до 3 с шагом 0.25'); if y-s=0 then writeln('сумма ряда 8.5, 8..9 равно произведению чисел от 1 до 3 с шагом 0.25'); end.3)  program dsagsa; var i,j,y: integer;     b: array[1..5,1..5] of integer; begin  for i: =1 to 5 do    for j: =1 to 5 do      begin        y: =random(16)-5;         b[i,j]: =y;       end;   for i: =1 to 5 do    begin      write('(');       for j: =1 to 5 do        write(b[i,j],' ');       write(')');       writeln;     end; end.4)  program fagasg; var i,j,i1,j1,y,s: integer;     a: array[1..50,1..50] of integer; begin  writeln('введите количество строк в массиве');   readln(i1);   writeln('введите количество столбцов в массиве');   readln(j1);     s: =0;     for i: =1 to i1 do      begin      write('(');       for j: =1 to j1 do        begin          y: =random(30)+1;           a[i,j]: =y;           s: =a[i,j]+s;           write(a[i,j],' ');         end;       write(')');       writeln;     end; end.матрицы немного коряво вышли, ну и чуть-чуть быдло кода)