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

Uses crt; const n=15; var a: array[1..n] of real; max: real; i,c: integer; begin randomize; readln(c); max: =-50; for i: =1 to n do begin a[i]: =random(100)-50; write(a[i]: 4); end; writeln; writeln; for i: =1 to n do begin a[i]: =(c+a[i])/2 ; write(a[i]: 4); end; writeln; writeln; for i: =1 to n do begin if (i mod 2< > 0) then begin if a[i]> max then max: =a[i]; end; end; write(max); end.

Var a: array[1..5,1..5] of integer; i,j: integer; begin writeln('исходный массив: '); for i: = 1 to 5 do       begin       for j: = 1 to 5 do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ')               end;       writeln       end; writeln; for i: = 1 to 5 do       begin       for j: = 1 to 5 do               begin               if (j> i) then a[i,j]: =3               else if (j< i) then a[i,j]: =0                         else a[i,j]: =7;               write(a[i,j]: 3,' ')               end;       writeln;       end; end.

Const n = 21; var     a: array[1..n] of integer;     i,k: integer;     s: real; begin randomize; s: =0; k: =0; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(80)-44;       write(a[i],' ');       if a[i]< =12 then             begin             s: =s+a[i];             k: =k+1             end;       end; writeln; writeln('sr = ',s/k) end.