Developing.ru

1. Раздел Алгоритмы, тема Поиск минимума
2. Там же, тема Упорядочивание массива

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

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

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

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

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

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

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

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.

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

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

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