Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

12th
Дек

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

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

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

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию: