Версия для печати темы

Автор: СТАНИСЛАВ 20.04.2006 20:30

привет всем я вновь в затруднительном положении. Задали решить задачу. смысл которой заключается в следующем:
1)написать процедуру вывода одномерного массива вещественных чисел.
2)составить функцию определяющую позицию МАХ элемента.
3)создать процедуру вывода элемента мвссива начиная с максимального.

начал писать программу но что-то не заладилось и правильный результат не получился. помогите пожалуста. мой вариант программы:

rogram sputnik;
type a=array[1..10] of integer;
procedure vivod(var x:a; n:integer);
var i :integer;
begin
for i:=1 to n do
begin
write('x[',i:2,']=');
readln(x[i]);
end;
end;
function max(var x:a; n:integer):integer;
var j, max_posic:integer;
begin
max_posic:=x[1];
for j:=2 to ndo
if x{j}>max_posic then max_posic:=x[j];
max:=max_posic;
end;
var x:a; k:integer;
begin
writeln('vivod max');
readln (k);
vivod(x,k);
writeln('max=',max(x,k));
end.

прошу помоч составить третий пункт задания т.е составить процедуру вывода элемента массива начиная с МАХ.
Ну а также пожалуста проверте написанную программу на правильность.
Зарание очень благодарен за помощь и потраченое время.

Автор: Ozzя 20.04.2006 20:46

Ошибка в строке № 1.

Автор: volvo 20.04.2006 21:03

Вообще-то этим компилятор заниматься должен... Ты ХОТЯ БЫ запускал Паскаль?

Автор: СТАНИСЛАВ 21.04.2006 0:10

Я не могу устранить эту ошибку просто не понимаю как. Вы не могли бы предложить свой вариант решения.

Автор: Романтик 21.04.2006 1:12

пункт 3:http://forum.pascal.net.ru/index.php?showtopic=3065

Автор: СТАНИСЛАВ 21.04.2006 1:37

Что значит пузырёк.

Автор: klem4 21.04.2006 10:26

Если бы ты сходил по ссылке то нашел бы ответ в посте №1.

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