программы процедур и функций Опции

[СТАНИСЛАВ]

Привет
обращаюсь к вам с просьбой помоч в решении задачи:
Составить программу ввода одномерного массива. Программа выведет MAX элемент одномерного массива целых чисел в виде процедур и функций, оформить блок операторов выполняющих ввод массива с клавиатуры. А также нужно максимальный элемент поставить на первое место а все остальные в убывающей последовательности.
Я начал решение задачи но доделать не могу. помогите исправить ошибки и построить блок схему

program a;
Type a=array[1...10] of integer;
var x:a;k:integer;
procedure Massik (k:integer);
var n:intege;
begin
for n:=1to k do
begin 
write ('ввести i, элементов массива');
readln (x[n]);
end;
end;
function maxE1 (k:integer ,x:a:integer, var j, max:integer);
begin
max:=x[1];
for j:=2 to k 
begin
if x[j]>max then maxE1:=x[j];
end;
end;
writeln ('укажите количество элементов не более 10');
readln (x);
massiv(k,x);
writeln ('максимал. элемент,' maxE1(k,x));
end.

простите за бред но пожалуйста помогите, или помогите решить другую задачу которую я писал раньше на форуме. Подскажите где можно скачать нормальную версию TURBO PASKALя. зарание оооооооогггггггррррооооомммммммннннооое СПАСИБО.

Тегами пользуемся...

Сообщение отредактировано: volvo - 17.04.2006 14:01