Pascal Help

[Impulsive]

Хоть задачка и легкая - подскажите где ее можно подглядеть - как образец:

x=max(A,B)+min(A,D)

Благодарен...

[Хыиуду]

на каком хоть языке? Честное слово, задачка - секунду мозгом подумать.

[Impulsive]

Хыиуду =) Я написал на Паскале!!! ( в теме)

[Impulsive]

Не кто не поможет!!?? Парни!!!! Сдовать в понедельник. =(

[Impulsive]

Парни - ну проверти хотябы!!!!

Program a1;

var A,B,C,D,x,max,min: real;

Begin

writeln('BBeguTe 3Ha4eHu9 A,B,C,D');
readln(A,B,C,D);

if A>B then max:=A else max:=B;
if C<D then min:=C else min:=D;

x:=max+min;

writeln('x=',x);

Readln;
end.

[Serge_Bliznykov]

да, всё отлично.
единственное, что я бы задал формат вывода:
writeln('x=',x:1);

[Impulsive]

да, всё отлично.
единственное, что я бы задал формат вывода:
writeln('x=',x:1);

И правда, ок, спасиб!

[Serge_Bliznykov]

и ещё
Может быть, Вам всё же нужно было разработать и использовать функции Max(..) и Min(...) ?
я бы на вашем месте, был бы готов к такому повороту событий. или сразу написал бы вариант программы с такими функциями...
Сами справитесь?

[Impulsive]

Serge_Bliznykov спасиб, но в данном случае это не нужно! Тем более писал её не для себя, а на ихнем факультете и такого хватит!

[KEF]

Помагите пожалусто.
Массивы
1. Найти минимальный из положительных элементов массива.
2. Упорядочить элементы массива по убыванию и вычислить произведение первого и последнего элементов.
3. Вставить 2 перед каждым элементом массива A(N), большим заданного числа В.