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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2015, 12:30   #1
СашаSD
Новичок
Джуниор
 
Регистрация: 25.10.2015
Сообщений: 1
Печаль Программа с матрицей

Помогите, пожалуйста.

Дана матрица размером 7Х7 элементов, случайным образом заполненная. Найти минимальное значение из элементов тех столбцов матрицы, среднее арифметическое
которых больше 5 и меньше 15.
СашаSD вне форума Ответить с цитированием
Старый 25.10.2015, 12:32   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну показывай наработки )
Хотя бы ввод матрицы, если другого нет.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.10.2015, 13:30   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

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


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа в делфи с матрицей Jook23 Помощь студентам 12 24.10.2012 08:31
Программа с матрицей. Пыхарь Общие вопросы по Java, Java SE, Kotlin 0 30.05.2012 17:31
Программа с матрицей ВадикСтрах Помощь студентам 3 21.11.2010 18:06
Помогите, программа с матрицей Absent Помощь студентам 3 16.12.2007 07:53