Пожалуйста помогите решить

[MOTOCoder]

Пожалуйста, помогите, задачи, которые идут в сообщение #15 нужно сделать до четверга.

Первая:
[syntax='Delphi']
program New_Project;

const
N=5;
N2=2*N+1;

var
Matr:array[1..N,1..N2]of integer;
Matr2:array[1..N,1..N2]of integer;Count:integer;
i,j:integer;
NextIdx:integer;
b0:boolean;

procedure CopyCol(idx1:integer;idx2:integer);
var k:integer;
begin
for k:=1 to N do
Matr2[k,idx2]:=Matr[k,idx1];
end;

begin
Randomize;
for i:=1 to N do
for j:=1 to N do
Matr[i,j]:=Random(10);

for i:=1 to n do
begin
for j:=1 to N do
write(Matr[i,j]:2,' ');
writeln;
end;

NextIdx:=0;
Count:=N;

for i:=1 to N do
begin
B0:=false;
for j:=1 to N do
if Matr[j,i]=0 then
b0:=true;

if b0 then
begin
Inc(NextIdx);
CopyCol(1,Nextidx);
inc(count);
end;

Inc(NextIdx);
CopyCol(i,nextidx);
end;

writeln;
for i:=1 to N do
begin
for j:=1 to Count do
write(Matr2[i,j]:2,' ');
writeln;
end;
readln;

end.

[/syntax]

Вторая:

[syntax='Delphi']
program New_Project;

const
N=5;

var
Matr:array[1..N,1..N]of integer;
i,j:integer;
idx,sum,max:integer;

begin
Randomize;
for i:=1 to N do
for j:=1 to N do
Matr[i,j]:=Random(10);

for i:=1 to n do
begin
for j:=1 to N do
write(Matr[i,j]:2,' ');
writeln;
end;

max:=low(integer);

for i:=1 to N do
begin
sum:=0;
for j:=1 to N do
inc(sum,Matr[i,j]);
if sum > max then
begin
Max:=sum;
idx:=i;
end;
end;

writeln;
writeln('Строка:');
writeln;
for i:=1 to n do
write(matr[idx,i],' ');
writeln;
writeln;
writeln('Сумма элементов: ',max);
readln;
end.

[/syntax]

[Freeeej]

Пожалуйста, помогите решить одну задачку до завтра...
Надо удалить последний чётный элемент одномерного массива, при этом заполняя массив вручную...
Помогите, пожалуйста...
Спасибо заранее...

[MOTOCoder]

Надо удалить последний чётный элемент одномерного массива, при этом заполняя массив вручную...

[syntax='delphi']
program mass;

const
N=10;

var
A:array[1..N] of integer;
i:integer;
idx:integer;

begin
writeln('Введите элементы массива');
for i:=1 to N do
readln(A);

for i:=1 to N do
if odd(A) then
idx:=i;

for i:=idx to N do
A[i-1]:=a;

for i:=1 to N-1 do
write(A,' ');

readln;
end.
[/syntax]

[C_O_D_E]

2 Freeeej и как, тебя код MOTOCoder'а устраивает?

[Dim...ON]

до этого четверга?
напиши в аську 198-012-696, если ещё не выгнали из института, помогу

[Freeeej]

Можете помочь мне с задачей?
Найти z=(sh(a)-sh(a-b))/(sqr(sh(a))+sqrt(sh(a-b))), используя процедуру sh=(exp(x)-exp(-x))/2;
С процедурой у меня какие-то заминки...

[Хыиуду]

Решение методом Ctrl-C, Ctrl-V

function sh(x:real):real;
sh:=(exp(x)-exp(-x))/2;
end;

writeln(sh(a)-sh(a-b))/(sqr(sh(a))+sqrt(sh(a-b))));