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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.11.2018, 17:49   #1
XakProg
Пользователь
 
Регистрация: 11.10.2018
Сообщений: 15
По умолчанию Нужно немного переделать код

Нужно из максимальных элементов матрицы А сформировать матрицу В. В коде результат выводится в мемо
Код:
procedure TForm1.Button1Click(Sender: TObject);
var max,j,i,N:integer;
a: array of array of integer;
begin
n:=5;
SetLength(a,n,n);
with stringgrid1 do
begin
colcount:=n;
rowcount:=n;
end;
for i:=0 to n-1 do
for j:=0 to n-1 do
a[i,j]:=random(100);
for i:=0 to n-1 do
for j:=0 to n-1 do
stringgrid1.cells[i,j]:=inttostr(a[j,i]);
for j:=0 to n-1 do
begin
max:=a[0,j];
for i:=0 to n-1 do
if max<a[i,j] then max:=a[i,j];
Memo1.Lines.Add('В столбце '+inttostr(j)+'макс. элемент='+inttostr(max));
end;
end;
Пожалуйста, оформляйте Ваш код согласно правилам.

Последний раз редактировалось Вадим Мошев; 21.11.2018 в 18:02.
XakProg вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно немного переделать программу - C++ с787ан Помощь студентам 1 26.04.2018 20:02
Очень нужно немного подправить код !Таблица Пифагора, Javascript. OlgaRostov JavaScript, Ajax 1 25.11.2015 16:10
Одномерный массив. есть код, нужно объяснить и немного подправить mikeel Общие вопросы C/C++ 8 10.06.2013 22:10
Списки(отредактировать немного код нужно) Lexeres Помощь студентам 4 25.03.2010 09:10