ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО НАДО! Положительные элементы вещественного массива разделить на сумму отрицательных элементов(массив брать до 10)
ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО НАДО! Положительные элементы вещественного массива разделить на сумму отрицательных элементов(массив брать до 10)
Гость
Ответ(ы) на вопрос:
Гостьvar
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.
Не нашли ответ?
Похожие вопросы