тема : обработка числовой информации.
содержание работы:
1. описание переменных
2. схемы алгоритмов
3. листинг программы
4. результаты тестирования программы.

может у кого образец есть. помогите пожалуйста!!!

разработать схему алгоритма и программу на алгорит. языке Паскаль для решения зад. произвести отладку и тест-е прог. в СП турбо Паскаль

задачи. 1. образов 2 массива x и y, сост из 12 вещ. чисел.
2. образ массив z по правилу: Z k = Xk^2 + mk*Y , m= k при cos k<= 0,3 (буква к идет внизу в примере)
при cos k> 0,3.
3. найти среднее ариф значение эл массива Z; k=1,12.
4. найти произвед эл массива Y, удовлет. условию -3,5<xi.<3,5.
5. найти знач и поряд номера наименьших эл массивов X и Y.
6. упорядочить мас X по возраст значений его элементов.
7. вывести на печать массив X,Y,Z, среднее ариф эл мас X, знач и поряд номера наимен эл мас X Y, упорядоченный массив X.

исх данные
i=1,12
X=(5.54,-3.3, 0.4, 0.564, -0.6, -3.3, 10.4, 6.12, 2.33, -4.1, 3.5, 5, 78)
Y=(2.7, 16.4, -4.6, 2.1, 0.67, 3.05, -16.1, -2.7, 0, 0.9, 9.25, -0.5)

program variant6;
uses crt;
const
i=12;
{*obyavlenie massivov X,Y}
x:array[1..i] of real=(5.54,-3.3,0.4,0.564,-0.6,-3.3,10.4,6.12,2.33,-4.1,3.5,5.78);
y:array[1..i] of real=(2.7,16.4,-4.6,2.1,0.67,3.05,-16.1,-2.7,0,0.9,9.25,-0.5);

{*funkciya podscheta srednego arifmeticheskogo znacheniya}
function SrArifm(mass:array of real;n:integer):real;
var k:integer;
res:real;
begin
res:=0;
for k:=0 to n-1 do
res:=res+mass[k];
SrArifm:=res/n;
end;

{*procedura vivoda massiva}
procedure PrintMass(mass:array of real;n:integer);
var k:integer;
begin
for k:=0 to n-1 do
write(mass[k]:8:3);
writeln;
end;



var

z:array[1..i] of real;
k,m,MinPosX,MinPosY:integer;
t,SrArifmZ,ProizvY,MinX,MinY:real;

begin
clrscr;
{*zapolnyaem massiv Z}
for k:=1 to i do
begin
if cos(k)<=0.3 then m:=k else m:=-k;
z[k]:=x[k]*x[k]+m*y[k];
end;
{*vivod massivov X,Y,Z}
writeln('Massiv X');
PrintMass(x,i);
writeln;
writeln('Massiv Y');
PrintMass(y,i);
writeln;
writeln('Massiv Z');
PrintMass(z,i);

{*srednee arifmeticheskoe massiva Z}
SrArifmZ:=SrArifm(Z,i);

{*proizvedenie elementov massiva y pri uslovii -3.5<x[i]<3.5 }
ProizvY:=1;
for k:=1 to i do
begin
if (x[k]>-3.5)and(x[k]<3.5) then ProizvY:=ProizvY*y[k];
end;

{*minimalnie elementi s nomerami}
MinPosX:=1;
MinPosY:=1;
MinX:=X[1];
MinY:=Y[1];
for k:=2 to i do
begin
if X[k]<MinX then begin MinX:=X[k]; MinPosX:=k; end;
if Y[k]<MinY then begin MinY:=Y[k]; MinPosY:=k; end;
end;

{*sortirovka massiva X po vozrastaniyu}
for m:=1 to i-1 do
for k:=1 to i-m do
if X[k]>X[k+1] then begin t:=X[k]; X[k]:=X[k+1]; X[k+1]:=t; end;

{*vivod rezultatov}
writeln;
writeln('Srednee arifmeticheskoe massiva X: ',SrArifm(x,i):8:3);
writeln;
writeln('Min element massiva X: ',MinX:8:3,' s nomerom ',MinPosX);
writeln;
writeln('Min element massiva Y: ',MinY:8:3,' s nomerom ',MinPosY);
writeln;
writeln('Uporyadochenniy po vozrastaniyu massiv X');
PrintMass(x,i);
writeln;
write('Press [Enter] to exit...');
readln;
end.

проверьте пожалуйста если не трудно

может образец есть!!!