Помощь в создании программы

помогите сделать задания в Delphi об оплате договоримся
Дана целочисленная матрица. Вычислить:
1. произведение элементов массива с четными номерами;
2. сумму элементов массива, расположенных между первым и последним нулевыми элементами;
3. Определить, является ли заданная квадратная матрица n-го порядка симметричной относительно главной диагонали

 

а вопрос собственно в чем? и как нада? консоль или с формой?

 

какие команды надо писать чтоб правильно работало

 

Первая:

Code:

program Project1;

{$APPTYPE CONSOLE}


var mas : array of integer; i,n:integer; pr:longint;
begin
writeln('Vvedite koli4estvo elementov massiva:');
readln(n);
if n<2 then exit;
SetLength(mas, n);
randomize();
for i:=0 to n-1 do
begin
  mas[i]:=random(10)+1;
  writeln(mas[i]:4);
end;
write(mas[1]);
pr:=mas[1];
i:=3;
while i<n do
begin
  pr:=pr*mas[i];
  write('*',mas[i]);
  i:=i+2;
end;
writeln('=',pr);
readln;
end.

Вторая:

Code:

program Project1;

{$APPTYPE CONSOLE}


var mas : array of integer; i,n,first,last:integer; sum:longint;
begin
writeln('Vvedite koli4estvo elementov massiva:');
readln(n);
SetLength(mas, n);
randomize();
for i:=0 to n-1 do
begin
  write('mas[',i,']=');
  readln(mas[i]);
end;
sum:=0;
i:=0;
while mas[i]<>0 do
inc(i);
first:=i;
i:=n-1;
while mas[i]<>0 do
dec(i);
last:=i;
for i:=first+1 to last-1 do
begin
  inc(sum, mas[i]);
  write(mas[i],'+');
end;
writeln('=',sum);
readln;
end.

3-ю напишу, возможно, но позже

 

это в паскале а мне надо в delphi

 

слепи из них функцыи и используй где тебе нада

 

{$APPTYPE CONSOLE}
Это консольные программы Delphi