курсовая в паскале

[Tigrenka]

хорошо...я сейчас напишу что у меня получается а вы будите исправлять

[kventin_zhuk]

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

хорошо...я сейчас напишу что у меня получается а вы будите исправлять

Да, моя госпожа! Будем исправлять!

[Serge_Bliznykov]

Тигрёнка, для затравки такой код можете погонять...

const N = 5;
var 
   M : array[1..N,1..N] of integer;
   i, j, MaxI, MaxJ, MinI, MinJ, S : integer;
   SquareRow1, SquareRow2,
   SquareCol1, SquareCol2 : integer;
   P : extended;
begin
   Randomize;
   {заполняем массив случайными числами от 1 до 20}
   for i:=1 to N do
     for j:=1 to N do
       M[i,j] := 1 + Random(20);

   {выведем исходный массив на экран}
   for i:=1 to N do 
     begin
       for j:=1 to N do 
         Write(M[i,j]:2,' ');
       WriteLn;
     end;


   {найдём индексы максимального 
      и индексы минимального элемента}

   MaxI := 1; {изначально считаем, что элемент 1-го строки и 1-го стролбца}
   MaxJ := 1; {максимальный}   

   MinI := 1; {изначально считаем, что элемент 1-го строки и 1-го стролбца}
   MinJ := 1; { и он же минимальный}

   for i:=1 to N do
     for j:=1 to N do begin
       if M[i,j] > M[ MaxI, MaxJ ] then 
           begin MaxI := i; MaxJ := j end;
       if M[i,j] < M[ MinI, MinJ ] then 
           begin MinI := i; MinJ := j end;
     end;

  WriteLn('Максимальный элемент = ', M[MaxI, MaxJ], 
     ' расположен в ',MaxI, ' строке и ',MaxJ,' столбце.');

  WriteLn('Минимальный элемент = ', M[MinI, MinJ],
     ' расположен в ',MinI, ' строке и ',MinJ,' столбце.');

  {определим индексы прямоугольника, образованого минимальным
          и максимальными элементами }
  if MaxI<MinI then
    begin
       SquareRow1 := MaxI;
       SquareRow2 := MinI
    end
  else
    begin
       SquareRow1 := MinI;
       SquareRow2 := MaxI
    end;

  if MaxJ<MinJ then
    begin
       SquareCol1 := MaxJ;
       SquareCol2 := MinJ
    end
  else
    begin
       SquareCol1 := MinJ;
       SquareCol2 := MaxJ
    end;

  WriteLn;
  WriteLn('Прямоугольник: от ',SquareRow1,' до ',SquareRow2, ' строки');
  WriteLn('     и от ',SquareCol1,' до ',SquareCol2, ' столбца');
  WriteLn;

  {теперь найдём сумму внешних элементов и произведение внутренних}
  S := 0;
  P := 1;
  for i:=1 to N do
    for j:=1 to N do
       if (i<SquareRow1) or (i>SquareRow2)
           or  (j<SquareCol1) or (j>SquareCol2) then {элемент вне матрицы}
              S := S + M[i,j]
       else {мы попали внутрь прямоугольника}
         P := P * M[i,j];

  WriteLn('Сумма внешних равна ',S);

  WriteLn('Произведение внутренних равно ',P:0:0);

  Readln;
end.

[beginner I]

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

У Вас сейчас два варианта - продолжать эту ветку, в которой работать будете Вы, а мы только проверять, поправлять и тп - до получения работоспособной программы. Но учтите, что тут надо учиться. И судя по тому коду, который Вы, пардон, "наваяли", учиться Вам придется с нуля и долго.

Либо обратиться в раздел Фриланс, где Вам за деньги этот проект сделают, думаю, довольно быстро.

Выбор за Вами.

Фриланс ?, буду знать а сколько стоит ?, в руб.