Прошу помочь с решением задачи.

[Гость RusLotus]

Задача на процедуры и функции. (ПАСКАЛЬ)

Вот сама задача: :bounce8:

{ Даны векторы A[10], B[8], C[6]. Получить y=min A.

Все компоненты вектора В, предшествующие первой по порядку компоненте с

наименьшим значением, заменить их квадратами.

Символьной переменной Т присвоить значение TRUE, если компонента

вектора С с наименьшим значением находится в первой половине вектора,

и значение FALSE – в противном случае.}

Распишите её пожалуйста по проще что бы я мог понять куда и что(Если конечно это вас не затруднит :) ).

Заранее благодарен за выполненную работу :) !!!

[Тролль]

RusLotus:

Для таких вопросов есть специальная тема в списке важных тем в начале раздела: "Заказы "Сделайте все за меня"".

Заранее благодарен за выполненную работу

С таким заданием ее никто не выполнит. Символьной переменной нельзя присвоить значение TRUE, это не символ. Вероятно, имелось в виду "булевской (логической) переменной".

Кроме того, так как "Задача на процедуры и функции", то будем их использовать, хотя толку от них в такой маленькой задачке практически нет. Тогда:

var   A:array[1..10]of real; B:array[1..8]of real; C:array[1..6]of real;  y:real; T:boolean; i:integer; procedure Input(var M:array of real); var i:integer;begin for i:=0 to high(M) do Read(M[i]); ReadLn end;function IMin(M:array of real):integer; var i:integer; p:real;begin IMin:=1; p:=M[0];for i:=1 to high(M) do if M[i]<p then begin p:=M[i]; IMin:=i+1 end end;beginWrite('A=');Input(A); Write('B=');Input(B); Write('C=');Input©;y:=A[iMin(A)]; for i:=1 to IMin(B)-1 do B[i]:=sqr(B[i]); T:=IMin©<=3;WriteLn('y=',y:9:2);Write('B='); for i:=1 to 8 do Write(B[i]:9:2); WriteLn;WriteLn('T=',T);ReadLnend.

Числа каждого массива при вводе разделяются пробелами, после ввода последнего числа массива нажимается Enter.

[Гость RusLotus]

Большое спасибо. :)