Правила форума
Прочтите прежде чем задавать вопрос!
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.
прошу помоч составить третий пункт задания т.е составить процедуру вывода элемента массива начиная с МАХ.
Ну а также пожалуста проверте написанную программу на правильность.
Зарание очень благодарен за помощь и потраченое время.
Сообщение отредактировано: volvo -
