delphi-массивы

[RsGoLd]

Помогите пожалуйста решить задачи в delphi, а то я не понимаю=(
1 задача:
В одномерном массиве состоящем из целочисленных элементов вычислить?:
1) Номер максимального элемента массива
2) Произведение элементов массива, расположенных между первым и вторым нулевыми элементами.
3) Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в нечётных позициях, а во втрой половине элементы стоявшие в чётных позициях.

2 задача:
1)Для заданной матрицы размером 8x8 найти такие k, что k-ая строка матрицы совпадает с k-ым столбцом
2)Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент

[p51x]

а то я не понимаю=(

Может стоит задуматьсся о смене специальности/факультета?

1) Номер максимального элемента массива

Любой учебник и поиск знает ответ.

[Prime123]

Уважаемый,это азбука,вам не нужна помощь в решении этих задач,достаточно лекций(если они у вас есть)

[Stilet]

RsGoLd

Ты вот что: покажи как вводишь в массив, а мы поправим.

[RsGoLd]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  I,J:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
with StringGrid1 do   {âûâåñòè íîìåðà ñòðîê â 0-ì ñòîëáöå è ñòîëáöîâ â 0-é ñòðîêå}
begin
  I := 0;   {ñòîëáåö 0}
	for J:= 1 to RowCount - 1 do  {âûâåñòè íîìåðà ñòðîê}
	   Cells[I,J] := IntToStr(J);
	J:=0;	{ñòðîêà 0}
	for I:= 1 to ColCount - 1 do  {âûâåñòè íîìåðà ñòîëáöîâ}
	   Cells[I,J] := IntToStr(I);
end;
with StringGrid1 do  {âûâåñòè â òàáëèöå ýëåìåíòû äâóìåðíîãî ìàññèâà}
for I := 1 to ColCount - 1 do
  for J:= 1 to RowCount - 1 do
    begin
      Cells[I,J] := IntToStr(Round(Sin(Random(100))*100));
    end;
end;




procedure TForm1.Button2Click(Sender: TObject);
var
 Min,Max,Sum: Integer;  {ëîêàëüíûå ïåðåìåííûå - ðåçóëüòàòû îáðàáîòêè ìàññèâà}
begin
	if Checkbox1.Checked then {îïðåäåëåíèå Ìin-ýëåìåíòà}
	with StringGrid1 do
	begin
	Min := StrToInt(Cells[1,1]); {ïóñòü - ýòî Ìin-ýëåìåíò}
	for I := 1 to ColCount - 1 do
	for J := 1 to RowCount - 1 do
	        if StrToInt(Cells[I,J]) < Min then
	   Min := StrToInt(Cells[I,J]);
	      Edit1.Text := IntToStr(Min);
    end
	else Edit1.Text := ' ';
	if Checkbox2.Checked then  {îïðåäåëåíèå Ìàõ-ýëåìåíòà}
	with StringGrid1 do
	begin
	Max:=StrToInt(Cells[1,1]); {ïóñòü - ýòî Ìàõ-ýëåìåíò}
	for I := 1 to ColCount - 1 do
	for J := 1 to RowCount - 1 do
	 if StrToInt(Cells[I,J]) > Max then
	   Max := StrToInt(Cells[I,J]);
	Edit2.Text := IntToStr(Max);
	end

а как это сделать не знаю: 2) Произведение элементов массива, расположенных между первым и вторым нулевыми элементами.
3) Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в нечётных позициях, а во втрой половине элементы стоявшие в чётных позициях

[Prime123]

Извините конечно,но что это?Что за конструкции?
Это ведь обычная учебная задача?Почему не создать массив и в не него считать введённые в stringgrid числа?Или есть на это ограничения по заданию?
Кстати,в stringgrid нумерация ячеек с 0 начинается,или я просто от жизни отстал?

[Prime123]

...
n:=strtoint(edit1.Text);
for i:=1 to n do
begin
x[i]:=strtofloat(stringgrid1.Cells[i-1,0]);
y[i]:=strtofloat(stringgrid2.Cells[i-1,0]);
end;
...

У меня в той программе 2 stringgrida,соответственно 2 массива

[RsGoLd]

ок спс всем