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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.02.2017, 22:43   #1
Vellbest
 
Регистрация: 25.12.2016
Сообщений: 3
По умолчанию Двумерные массивы

Доброго вечера всем . Прошу помощи с двумя задачами в двумерном массиве:
1. В задаваемой вещественной матрице найти минимальный элемент среди максимальных элементов каждой строки и указать его позицию.
2. Обнулить строку и столбец задаваемoй матрицы, на пересечении которых находится её первый максимальный элемент .

Последний раз редактировалось Vellbest; 27.02.2017 в 00:36.
Vellbest вне форума Ответить с цитированием
Старый 27.02.2017, 10:16   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

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


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерные массивы, двумерные массивы, строки Sand093 C++ Builder 11 20.05.2012 21:48
Двумерные массивы(матрица) 2)Строковые массивы(строки): 3)Структуры nuriyat Помощь студентам 1 21.01.2012 16:16
Двумерные массивы(массивы указателей на массивы) krytishka99 Помощь студентам 1 29.12.2011 19:51
Двумерные массивы 1Dima Помощь студентам 3 26.03.2011 15:22
двумерные массивы JOHN1992 Помощь студентам 2 06.11.2009 22:49