Найти сумму элементов квадратной матрицы порядка 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;

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

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

• После загрузки файла в RichEdit подобрать ширину по содержимому
• Найти окно по заголовку с определенным словом
• Как постранично расположить текст в RTF файле?
• Возможно ли использовать в Delphi шрифты не установленные в системе?
• Вывод каждой второй строки из memo
• Уменьшить Bitmap
• Как в RandomRange исключить определенные числа?
• Рассылка. Выпуск 144
• Массовое переименование label на форме
• Сравнение файлов в Excel