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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.06.2011, 22:50   #1
Sashok12
Новичок
Джуниор
 
Регистрация: 06.06.2011
Сообщений: 4
По умолчанию 2мерный масив

помогите пожайлуста)
уже 2-й день немогу сдать лабу
в масиве(5,7) найти максимальний елемент в каждом столбце
заранее благодарен
Sashok12 вне форума Ответить с цитированием
Старый 06.06.2011, 22:52   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

И в чем проблема? Покажите ваши наработки или огласите сумму и способы получения вознаграждения за решение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 06.06.2011, 22:56   #3
Sashok12
Новичок
Джуниор
 
Регистрация: 06.06.2011
Сообщений: 4
По умолчанию

у меня проблема в постановке условия(
Sashok12 вне форума Ответить с цитированием
Старый 06.06.2011, 23:08   #4
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Какого условия? Искать максимальный элемент в каждом столбце, куда-нибудь его сохранять (наверно удобнее всего использовать другой массив из 7 элементов т.е. число столбцов).
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 06.06.2011, 23:13   #5
Sashok12
Новичок
Джуниор
 
Регистрация: 06.06.2011
Сообщений: 4
По умолчанию

а все понял,точно)
тут 2-м масивом нада)
спасибо)
Sashok12 вне форума Ответить с цитированием
Старый 07.06.2011, 00:08   #6
Sashok12
Новичок
Джуниор
 
Регистрация: 06.06.2011
Сообщений: 4
По умолчанию

program lab_11;
uses crt;
const n=3;
m=3;
var a:array [1..n,1..m] of integer;
p,i,j:integer;
max:array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=100-random(200);
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:5);
writeln;
end;
for i:=1 to n do
begin
j:=1;
max[i]:=a[i,j];
for j:=2 to m do
if a[i,j]>max[i] then
begin
max[i]:=a[i,j];
end;
write (max[i],' ');
end;
readkey;
end.
Sashok12 вне форума Ответить с цитированием
Старый 07.06.2011, 00:15   #7
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

n у вас — строки, а m — столбцы. Искать надо в столбцах, а не строках.
И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
"растянуть" 2мерный бинарный массив snoopgrinder Общие вопросы Delphi 3 09.01.2011 01:27
Масив на C#!!! Lo4gan Общие вопросы .NET 3 17.05.2010 20:58
Задачка на 2мерный массив forz Паскаль, Turbo Pascal, PascalABC.NET 3 10.11.2008 17:57