[Murzik97]

Вот задание:
Заполнить двумерный числовой массив целыми числами. Вычислить произведение положительных элементов каждой строки и указать строку с наибольшим произведением положительных элементов.

Прошу помочь(

[Murzik97]

Я использую Delphi 10, и не могу разобраться почему не робит. Это не по заданию, а прошлая работа... так как я работал в Delphi 7, там она работала. Использую эту прогу как пример

Код:

procedure TForm1.RadioGroup1Click(Sender: TObject);
var i:integer;
begin
randomize;
if radiogroup1.ItemIndex=0 then
  begin
   for i:=0 to 10 do stringgrid1.Cells[i,0]:=inttostr((random(201)-100));
   StringGrid1.Options:=StringGrid1.Options-[goEditing];
   end;
 if radiogroup1.ItemIndex=1 then
  begin
    for i:=0 to 10 do stringgrid1.Cells[i,0 ]:='0';
    StringGrid1.Options:=StringGrid1.Options+[goEditing];
  end;
 end;

procedure TForm1.Button1Click(Sender: TObject);
var i,max,l,t:integer;
m:array [0..10] of integer;
begin
max:=0;
l:=0; //номер макс
t:=1;
 for i:=0 to 10 do
  begin
    m[i]:=strtoint(stringgrid1.cells[i,0]);
    if  m[i]>max then begin
    l:=i+1;
    max:=m[i];
    end;
  end;
  for i:=0 to 10 do
  begin
  if m[i]=t then t:=t+1;
  end;
   label1.caption:='Вычислить номер первого максимального элемента массива = '+inttostr(l);
   label3.Caption:='количество максимальных элементов (если их несколько) = '+inttostr(t);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
radiogroup1.ItemIndex:=1
end;

end.

[lmikle]

А что не работает-то?
Там есть одна ошибка, но в большинстве случаев работать должно...

Исправленная ошибка:
стр. 21:

Код:

max := strtoint(stringgrid1.cells[0,0]); m[0] := max;

стр. 23:

Код:

t := 0;

стр. 24:

Код:

for i:=1 to 10 do

[Murzik97]

Спасибо. А можете помочь с заданием: Заполнить двумерный числовой массив целыми числами. Вычислить произведение положительных элементов каждой строки и указать строку с наибольшим произведением положительных элементов.

[Alegun]

Сообщение от Murzik97

Заполнить двумерный числовой массив целыми числами. Вычислить произведение положительных элементов каждой строки и указать строку с наибольшим произведением положительных элементов...

Что-то типа того, но без использования функций модуля Math