кто нибудь знает турбо паскаль?помогите решить!выручайте,срочно надо!

как-то так… но за точность я не ручаюсь - писал в блокноте

1)
var
a: array[1..5] of integer;
b: array[1..6] of integer;

function mina: integer;
var
k: integer;
tmin: integer;
begin
tmin:=a[1];
for k:=2 to 5 do
if a[k]<=tmin then tmin:=a[k];
mina:=tmin;
end;

function minb: integer;
var
k: integer;
tmin: integer;
begin
tmin:=b[1];
for k:=2 to 6 do
if b[k]<=tmin then tmin:=b[k];
minb:=tmin;
end;

procedure inout;
var
k: integer;
tmin: integer;
tmina, tminb: integer;
suma, sumb: integer;
begin
writeln('Введите массив a');
for k:=1 to 5 do readln(a[k]);
writeln('Введите массив b');
for k:=1 to 6 do readln(b[k]);
tmina:=mina;
tminb:=minb;
suma:=0;
sumb:=0;
for k:=2 to 5 do
if a[k]=tmina then suma:=suma+a[k-1];
for k:=2 to 6 do
if b[k]=tminb then sumb:=sumb+b[k-1];
write('Сумма элементов для массива а '); writeln(suma);
write('Сумма элементов для массива b '); writeln(sumb);
end;

2)
var
c:array[1..4, 1..4] of integer;
b:array[1..5, 1..5] of integer;

procedure sr_c(var src: real);
var
i, j: integer;
summ: integer;
quant: integer;
begin
summ:=0;
quant:=0;
for i:=1 to 4 do
for j:=1 to 5-i do
if c[i, j]>0 then begin
summ:=summ+c[i, j];
quant:=quant+1;
end;
if quant=0 then src:=-1 else src:=summ/quant;
end;

procedure sr_b(var srb: real);
var
i, j: integer;
summ: integer;
quant: integer;
begin
summ:=0;
quant:=0;
for i:=1 to 5 do
for j:=1 to 6-i do
if b[i, j]>0 then begin
summ:=summ+c[i, j];
quant:=quant+1;
end;
if quant=0 then srb:=-1 else srb:=summ/quant;
end;

procedure inout;
var
srednee_c, srednee_b: real;
begin
writeln('Введите массив c');
for i:=1 to 4 do
for j:=1 to 4 do readln(c[i, j]);
writeln('Введите массив b');
for i:=1 to 5 do
for j:=1 to 5 do readln(b[i, j]);
sr_c(srednee_c);
sr_b(srednee_b);
if srednee_c<0 then writeln('В массиве c нет положительных элементов на побочной диагонали или выше')
else writeln(srednee_c);
if srednee_b<0 then writeln('В массиве b нет положительных элементов на побочной диагонали или выше')
else writeln(srednee_b);
end;

хз

var
a:array[1..5] of byte;
b:array[1..6] of byte;

procedure inp;
var
i:byte
begin
for i:=1 to 5 do read(a);
for i:=1 to 6 do read(b);
end;

procedure outp(c:array[1..6] of byte, n:byte);
var
i:byte;
begin
for i:=1 to n do write(c,' ');
end;

function min(c:array[1..6] of byte; n:byte):byte;
var
i:byte;
begin
min:=c[1];
for i:=2 to n do if c < min then min:=c
end;

BEGIN
inp;
outp(a,5); write(min(a,5)); writeln;
outp(b,6); write(min(b,6)); writeln;
END.

Для второй задачи писать не буду, лень, код ни о чем - очень простой. Цикл для побочной и выше диагонали
for i:=1 to n do
for j:=1 to n-i+1 do
действие