Спаскалем! случайным образом задан массив из 10 элементов. посчитать среднее арифметическое его элементов. сформировать второй массив из элементов первого, больших, чем среднее арифметическое элементов первого массива.

299

480

Посмотреть ответы 2

Ответы на вопрос:

Anonimnostya

Информатика

4,7(21 оценок)

Const n = 10; var a,b: array[1..n] of integer; i,k: integer; sr: real; begin write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(2*n+1)-n; write(' ',a[i]); sr: =sr+a[i] end; sr: =sr/n; writeln; writeln('среднее арифметическое: ',sr); k: =0; write('новый массив: '); for i: = 1 to n do if a[i]> sr then begin k: =k+1; b[k]: =a[i]; write(' ',b[k]) end; end.

M0N1C4

Информатика

4,4(75 оценок)

Var mas: array[1..15] of integer; i, v, q: integer; begin randomize; q: =100; mas[1]: =random(q); for i: =2 to 15 do begin repeat v: =random(q); if v< nas[i-1] then inc(q, 20); until v> mas[i-1]; end; mas[i]: =v; writeln('полученный массив'); for i: =1 to 14 do write(mas[i],', '); write(mas[15]); end. полученный массив 15, 18, 19, 25, 48, 49, 51, 60, 65, 90, 91, 98, 125, 140, 150