Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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



Ответ
 
Опции темы
Старый 12.12.2017, 07:08   #1
Anastasiya326
Новичок
 
Регистрация: 12.12.2017
Сообщений: 4
Репутация: 10
По умолчанию Сформировать произвольную матрицу, найти наибольший и наименьший элемент заштрихованной части

Дано натуральное число n. Сформировать произвольную матрицу размерностью n*n.
Найти наибольший и наименьший элемент заштрихованной части.
Изображения
Тип файла: jpg квадрат.jpg (6.2 Кб, 17 просмотров)
Anastasiya326 вне форума   Ответить с цитированием
Старый 17.12.2017, 09:00   #2
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,618
Репутация: 1463

skype: newerow1989
По умолчанию

Код:

const n=11;
var p:array[1..n,1..n] of integer;
    i,j,min,max:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(100);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   min:=p[1,n div 2];
   max:=min;
   For i:=1 to n do
      For j:=1 to n do
         If (j>i) and (n-j+1>i) then
         begin
            If min>p[i,j] then
               min:=p[i,j];
            If max<p[i,j] then
               max:=p[i,j];
         end;
   Writeln('min = ',min);
   Writeln('max = ',max);
   Readln;
end.

__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти наибольший и наименьший элементы в заштрихованной части матрицы. Free Pascal avatar54 Помощь студентам 0 12.06.2017 22:18
В каждом столбике поменять наименьший и наибольший элемент местами vlad1kT Помощь студентам 0 16.06.2013 10:51
Найти наибольший и наименьший элемент в каждой строке матрицы. Отсортировать... (Паскаль) Tifa Помощь студентам 0 28.01.2011 00:07
Дан двумерный массив.Найти наибольший отрицательный элемент выше побочной диагонали и наименьший положите red-white Помощь студентам 1 05.11.2010 10:51
найти наибольший и наименьший элемент матрицы B(N x M) и поменять их местами поЛотЕнчик_просТо Общие вопросы C/C++ 2 13.05.2009 12:17




09:29.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru