|
в одномерном массиве, состоящем из n целых елементов, вычислить: 1. среднее значение всех положительных елементов массива, 2. сумму индексов всех максимальных(одинаковых) елементов массива, 3. преобразовать массив таким образом, чтобы сначала рассполагались все нлевые елементы, потом - все отрицательные елементы, в конце - все положительные елементы.
|
|
|
|
var
a:array[1..100]of integer;
i,n,s,q:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>0 then begin s:=s+a[i];q:=q+1;end;
writeln(s/q:0:0);
s:=-32000;
for i:=1 to n do
if a[i]>= then s:=a[i];
q:=0;
for i:=1 to n do
if a[i]=s then q:=q+i;
writeln(q);
for i:=1 to n do
if a[i]=0 then write(a[i],' ');
for i:=1 to n do
if a[i]<0 then write(a[i],' ');
for i:=1 to n do
if a[i]>0 then write(a[i],' ');
end.
"Спасибо" принимается повышением репутации. ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
