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