Найти сумму элементов квадратной матрицы порядка n

Posted by obzor under Delphi

Найти сумму элементов квадратной матрицы порядка N (N<=6, задаётся в TEdit), есть отрицательные элементы, найти наибольший из них.

newerow1989

procedure TForm1.Button1Click(Sender: TObject);
var p:array[1..6,1..6] of integer;
    i,j,n,s,max:integer;
begin
   n:=StrToInt(Edit1.Text);
   If n<1 then
      n:=1;
   If n>6 then
      n:=6;
   Randomize;
   For i:=1 to n do
      For j:=1 to n do
         p[ i,j]:=-10+Random(21);
   s:=0;
   max:=p[1,1];
   For i:=1 to n do
      For j:=1 to n do
      begin
         s:=s+p[ i,j];
         If max>p[ i,j] then
            max:=p[ i,j];
      end;
   Label1.Caption:=IntToStr(s);
   Label2.Caption:=IntToStr(max);
end;

тема на форуме

Случайные статьи

• Работать с цифрами Num Lock игнорируя режим вкл/выкл у него
• Признаком окончания ввода служит символ «*»
• Включение ламп по Com или Lpt
• Растягивание TImage без масштабирования
• Таймер в миллисекундах
• Как организовать поиск по 2 полям с помощью like?
• Проверка значений строки в Excel?
• Как средствами Delphi можно создать гитарный тюнер?
• Как получить данные с чужой программы в свою?
• Как передать в первую форму из второй, какая из кнопок была нажата?