Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пож-та))))))) (Массивы)
Помогите пож-та)))))))
1) Дан массив Х(10), найти среднее арифметическое положительных и отрицательных элементов отдельно. 
2) Найти количество нулевых элементов в матрице Е(5,6) и вывести их индексы.
1 | Автор: Cama | 2014-04-13, 13:15   |  Репутация: [ + 0 ]
1)
const
n = 10;
var
x:array[1..n]of integer;
i:byte;
p_count, m_count, sum_p,sum_m:integer;
begin
p_count:=0;
m_count:=0;
sum_p:=0;
sum_m:=0;
for i:=1 to n do begin
read(x);
if (x > 0) then begin
p_count:=p_count+1;
sum_p:=sum_p+x;
end;
if (x < 0) then begin
m_count:=m_count+1;
sum_m:=sum_m+x
;
end;
end;
writeln('sred. arifm. pol. 4isel: ', sum_p / p_count);
writeln('sred. arifm. otr. 4isel: ', sum_m / m_count);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2014-04-13, 15:42   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пож-та))))))) (Массивы)
Страница 1 из 11
Поиск: