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

Uses crt; var a: array [1..15] of integer;     x,sum: integer;     sr: real; begin       randomize;       sum: =0;       for x: =1 to 15 do       begin           a[x]: =random(15)+1;           sum: =sum+a[x];           writeln('a[',x,']: ',a[x]);       end;       sr: =sum/15;       writeln;       for x: =1 to 15 do           if a[x]> sr then write(a[x]: 3); end.

Const n=5; m=7; var a: array[1..n,1..m]of integer; i,j: integer; begin       for i: =1 to n do             begin                   for j: =1 to m do                         begin                             a[i,j]: =random(100);                             write(a[i,j]: 4);                         end;                   writeln;           end; writeln; for i: =1 to n do   begin     for j: =2 to m do         if j mod 2=0 then             write(a[i,j]: 4);       writeln;   end; end.    

ответ:http://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ru

Объяснение:http://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ru