1) Дан массив Х(10), найти среднее арифметическое положительных и отрицательных элементов отдельно.
2) Найти количество нулевых элементов в матрице Е(5,6) и вывести их индексы.
|
|
|
|
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
|
|
|
|
