7. Створіть проект, у якому вводяться значення елементів табличної величини з 15 різних дійсних чисел у багаторядковому текстовому полі, визначається найменше серед значень її елементів і обмінюється місцями зі значенням елемента, розташованим посередині. Значення зміненої табличної величини виводяться в інше багаторядкове текстове поле. (Pascal)

автет такой ясматри

// pascal-pentagon

program hacker228

var

a:array[1. . 5] of real;max,min:real;i,nmax,nmin:integer;

begin

for i:=1 to 5 do read(a[i]);

max:=a[1];nmax:=1;min:=a[1];nmin:=-1;

for i:=1 to 5 do begin

end;

write(a[i]:7:1,'vzlomano';

end.

а если хачеш 15 чисил тагда пиши в паскеле вмиста 1 - 5 = 15 - 15 (извенитэ за мой каравый руский я просто арманин)