Пожалуйста помогите написать программу и составить блоксхему !Определить среди 3...

Question

Пожалуйста помогите написать программу и составить блоксхему !
Определить среди 3 введенных чисел сумму отрицательных и положительных.Если больше сумма положительных,то найти минимум из этих 3 чисел , а иначе найти максимум.

Comments

Вывести только один результат (минимум или максимум) ?

Answer 1

Uses crt;
var sump,sumn,i:integer;
a:array[1..3] of integer;
begin
for i:=1 to 3 do
begin
read(a[i]);
if a[i]>=0 then
sump:=sump+a[i]
else
sumn:=sumn+a[i];
end;
if sump>=sumn then
writeln(min(min(a[1],a[2]),min(a[2],a[3])))
else
writeln(max(max(a[1],a[2]),max(a[2],a[3])));
end.

Comments

writeln(min(min(a[1],a[2]),min(a[2],a[3])));
(min(a[1],a[2]) - так с процедуры вызывают элементы

---

Или функция

---

Это встроено в паскаль. min(a,b) дает значение минимального элемента из a и b

---

Turbo Pascal ?

---

Я в Pascal ABC делал. Обычно в школах на нем.

---

Проверь сейчас, работает ли программа.

---

дв

---

Да

---

Ты забыл переменные дописать, у меня не работает правильно

---

Вообщем, забудь :)

Answer 2

М...  заморила твоя задача однако
Program asd;
USES crt;
var
A:array [1..5] of integer;
min,max,min2,o,p:real;
i,n:integer;

Procedure max1;
begin
for i:=1 to 5 do
if A[i]>0 then
if minmin:=A[i];
Writeln('Min: ',min);
end;
Procedure min1;
begin
for i:=1 to 5 do
if A[i]<0 then<br>if min>A[i] then
min:=A[i];
Writeln('Min: ',min);
end;
BEGIN
clrscr;
For i:=1 to 5 do
begin
A[i]:=random(9)-5;
Write(' ',A[i]);
end;
Writeln;
//Otrizanie
For i:=1 to 5 do
if A[i]<0 then o:=o+A[i];<br>Writeln('Summa otrizatelnyx elementov: ',o);
//Polowitelnye
For i:=1 to 5 do
if A[i]>0 then p:=p+A[i];
Writeln('Summa polowitelnyx elementov: ',p);
if pelse min1;
END.

Comments

Вообщем скажу как есть.
Программа пускает 5 чисел разных. Считает общую сумму отрицательных и положительных чисел. Далее, находит максимальный положительный элемент и максимальный отрицательный элемент и при условии p<o подключает соответственную процедуру для отрицания и положительного числа. Но так нельзя! Ребята, исправьте мой код у меня голова не варит или не могу понять суть...

---

Может сделать дополнительный массив под это, который сначала заполнить всеми отрицательными элементами, которые вышли, А потом среди них уже просто искать минимальный... не знаю :)