дан массив целых чисел из 17 элементов. Найти частное от разделенья

Дан массив целых чисел из 17 частей. Найти приватное от дробления суммы положительных частей массива на модуль суммы отрицательных элементов

Задать свой вопрос
Владислав Феферман
Rf
Александра
Укажите язык, пожалуйста
Эвелина Завалунова
TurboPascal
1 ответ
На Паскале

var a: array [1..5] of integer;
i: integer;
p, m: integer;
begin
for i:=1 to 5 do begin
readln(a[i]);
If a[i] lt; 0 then
m:= m+a[i]
else
p:=p+a[i];
end;
writeln(p/абс(m));
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт