VPF::[Pascal] Найти максимум в матрице - Форум программистов

MGorelkin

Дата 26.3.2007, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 26.3.2007

Репутация: нет
Всего: нет

6) Дана матрица A(N,N).Определить наибольшее из значений элементов, расположенных, в красной части матрицы.
user posted image

Короче это типа матрица квадратная, и разделена равно на 4 квадратика, надо найти, то что в заштрихованых квадратах(ну те в квадратах с звездочками).
Спасибо вам! ) ПРошу очен. Я если что вам могу с сайтами помочь. Веб-разработка-это моё))

Sunvas

Дата 26.3.2007, 21:52 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 7
Всего: 89

Вот держи. smile

Код


const n=7;
var a:array [1..n,1..n] of integer; {наш массив}
i,j,m:word;
begin
randomize; {Забиваем массив мусором}
m:=0;
for i:=1 to n do
    for j:=1 to n do
        a[i,j]:=random(101);
{-------------}
for i:=trunc(n/2)+n mod 2 to n do {собственно сама проверка}
    for j:=1 to trunc(n/2)+n mod 2 do
        if m<a[i,j] then m:=a[i,j];

for i:=trunc(n/2)+n mod 2 to n do
    for j:=1 to trunc(n/2)+n mod 2 do
        if m<a[j,i] then m:=a[i,j];
writeln(m);
{------------------}
for i:=1 to n do {выводим саму матрицу и проверям}
begin
    for j:=1 to n do
        write(a[i,j],' ');
writeln;
end;
readln;
end.

ЗЫ. Если ОНО, то насчет сайтов - стучил в ПМ. smile

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

MGorelkin

Дата 26.3.2007, 22:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 26.3.2007

Репутация: нет
Всего: нет

Спасибо) твой должник я))

Sunvas

Дата 26.3.2007, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 7
Всего: 89

Цитата(MGorelkin @ 26.3.2007, 22:06

)

Спасибо) твой должник я))

Постучи в ПМ или асю 854984. Мне как раз кое-что нужно. smile

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

MGorelkin

Дата 26.3.2007, 22:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 26.3.2007

Репутация: нет
Всего: нет

ок! завтра сутра...а то сеня чертитб много

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »