mansur071199486
?>

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

Информатика

Ответы

Tarakanova_pavel
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.
format-l3364
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.    
pifpaf85

ответ: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

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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

Популярные вопросы в разделе

Александрович686
Sadikova Gavrikov
kotofei147516
arammejlumyan
Dmitriy793
ПодлеснаяМакарова1883
vvb1383
Petrovich
Daulyatyanov1266
themolodoy
lpcck2212
Оксана759
kyrtlab39
d43irina
ann328389