Паскаль. задачи на массивы

[rant]

учусь заочно, пытался сам сделать, но не врубаюсь друзья все уже паскаль позабывали...
выручайте..

задачки по паскалю

[rant]

так-с вторую задачу осилил

[rant]

4-я есть

[AVer]

Неплохая тенденция...

[rant]

дальше пока дело не идет

[Alex21]

-=1=-
var x1,y1,z1:integer;

function getA(x,y,z:integer):extended;
begin
getA:=x^y+abs(sqr(x)-4*y*z);
Writeln('А = ',GetA);
end;
function GetF_A(getA);
begin
GetF_A:=sin(GetA)+(sqr(GetA)/4);
Writeln('F(А) = ',GetF_A);
end;
begin
Writeln('Введите X : ');
Readln(X1);
Writeln('Введите Y : ');
Readln(Y1);
Writeln('Введите Z : ');
Readln(Z1);
getA(x1,y1,z1);
GetF_A(getA);
end.

[Alex21]

-=2=-
var a,b,c:integer;
E1,E2,D:extended;
begin
Writeln('Введите A : ');
Readln(A);
Writeln('Введите B : ');
Readln(B);
Writeln('Введите C : ');
Readln(C);
D:=sqr(A)-sqr(B)-sqr(C);
{находим Е1}
if (C<B)and(B<A) then
begin
E1:=(A-B)/C;
end else
begin
E1:=A*B*C;
end;
{находим Е2}
if (D>=0) then
begin
E2:=sqrt(D);
end else
begin
E2:=exp(D);
end;
Writeln('E1 = ',E1);
Writeln('E2 = ',E2);
end.

[Alex21]

-=3=-
const
N=100;
var
a:array[1..N]:string;
i:integer;
str:string;
begin
for i:= 1 to N do
begin
str:=a[i];
if (str[0]='М')and(str[0]='М')and(str[0]='Т')then
begin
writeln('Знак №',i,' ',str);
end;
end;
end.

[Alex21]

-=6=-
const N=20;
var
t:array[1..N]of integer;
i,min,max:integer;
procedure Create_Mass;
begin
Randomize();
for i:=1 to N do
begin
t[i]:=Random(100)-Random(100);
end;
end;
begin
Create_Mass;
min:=t[1];
max:=t[1];
{выводим исходный массив}
for i:=1 to N do
writeln(t[i],' ');
end;
{находим МИН МАКС}
for i:=2 to N do
begin
if min < t[i] then min:=t[i];
if max > t[i] then max:=t[i];
end;
{заменяем отрицательные}
for i:= 1 to N do
begin
if t[i]<0 then t[i]:=(max=min)/2;
writeln(t[i],' ');{выводим полученный массив}
end;
end.

[rant]

я так первую сделал. Чисто на вскидку правильно?
Alex, спасибо! смотрю у тебя код сложней моего что говорить... pro )