сФормировать второй массив каждый элемент которого равен разности между элементами 1 массива и средним значением данного массива
10-11 класс
|
var a,b,c,k:integer; m1,m2: array [1..100] of integer;
begin
readln (a); // длина массива
for b:=1 to a do
begin
readln(c);
m1[b]:=c;
m2[b]:=c;
end;
for b:=1 to a do
for c:=1 to a-1 do
If m2[c]>m2[c+1] then
begin
k:= m2[c];
m2[c]:=m2[c+1];
m2[c+1]:=k;
end;
k:= a div 2;
k:= m2[k];
for b:=1 to a do
writeln (m1[b]-k);
end.
Как-то так. Не забудь отметит лучшим и поблагодарить
Другие вопросы из категории
уменьшается в 10 раз. На языке паскаль
а) 44,1 кГц
б) 11 кГц
в) 22 кГц
г) 32 кГц
и разрядностью 16 бит.
Читайте также
сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел. получите новый массив, каждый элемент которого равен квадрату соответствующего элемента исходного массива. в полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива. выведите на экран исходные и полученные результаты
стоящих на четных местах. Вывести на экран эти элементы и их произведение.
элементов данного массива. Вывести три массива.
элементов исходного массива.
тке полученных компонентов массива. Исходными данными являются одномерный массив, элементы которого задаются с помощью датчика случайных чисел от -50 до +50 и целое положительное число К