Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.04.2016, 00:52   #1
Анна997
Пользователь
 
Регистрация: 15.04.2016
Сообщений: 26
По умолчанию Дана прямоугольная матрица x[1..m,1..n] вещественных чисел.

Дана прямоугольная матрица x[1..m,1..n] вещественных чисел.
А.В строке , сумма элементов которой минимальна , найти среднее арифметическое положительных элементов , расположенных между двумя её наибольшими элементами, включая сами эти элементы .
В. Составить линейную таблицу из количества минимальных элементов каждого столбца строки.
Анна997 вне форума Ответить с цитированием
Старый 17.04.2016, 04:31   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const m=10;
      n=8;
var x:array[1..m,1..n] of real;
    i,j,imin,jmax1,jmax2:integer;
    sum:array[1..m] of real;
    min:array[1..n] of real;
    sr:real;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         x[i,j]:=-10+Random(20)+Random;
         Write(x[i,j]:7:4,'  ');
      end;
      Writeln;
   end;
   Writeln;
   imin:=1;
   For i:=1 to m do
   begin
      sum[i]:=0;
      For j:=1 to n do
         sum[i]:=sum[i]+x[i,j];
      If sum[imin]>sum[i] then
         imin:=i;
   end;
   //Writeln(imin);
   jmax1:=1;
   For j:=2 to n do
      If x[imin,jmax1]<x[imin,j] then
         jmax1:=j;
   jmax2:=1;
   For j:=2 to n do
      If (x[imin,jmax2]<x[imin,j]) and (x[imin,j]<x[imin,jmax1]) then
         jmax2:=j;
   //Writeln(jmax1,' ',jmax2);
   i:=0;
   sr:=0;
   For j:=jmax1 to jmax2 do
      If x[imin,j]>0 then
      begin
         sr:=sr+x[imin,j];
         i:=i+1;
      end;
   If i>0 then
      sr:=sr/i;
   Writeln(sr:7:4);
   For j:=1 to n do
   begin
      min[j]:=x[1,j];
      For i:=2 to m do
         If x[i,j]<min[j] then
            min[j]:=x[i,j];
      Write(min[j]:7:4,'  ');
   end;
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана прямоугольная матрица действительных чисел. Black Panther Помощь студентам 3 29.11.2012 07:00
дана прямоугольная матрица... Avvakymova Паскаль, Turbo Pascal, PascalABC.NET 2 08.05.2011 12:55
Дана целочисленная прямоугольная матрица. Lollipo Общие вопросы C/C++ 1 12.10.2010 10:52
дана целочисленная прямоугольная матрица Jet-Tea Общие вопросы C/C++ 9 02.06.2010 16:41
Дана целочисленная прямоугольная матрица... gregorio Помощь студентам 1 22.04.2009 20:27