Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » очень нужно!
очень нужно!
в одномерном массиве, состоящем из n целых елементов, вычислить: 1. среднее значение всех положительных елементов массива, 2. сумму индексов всех максимальных(одинаковых) елементов массива, 3. преобразовать массив таким образом, чтобы сначала рассполагались все нлевые елементы, потом - все отрицательные елементы, в конце - все положительные елементы.
1 | Автор: ganegane1994 | 2011-10-16, 23:55   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2011-10-17, 08:57   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-10-17, 08:57   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » очень нужно!
Страница 1 из 11
Поиск: