Найти максимальный элемент второй строки таблицы и заменить его на сумму элементов второго столбца

@alexander91 · Регистрация: 20.05.2012

Студворк — интернет-сервис помощи студентам

Имеется двухмерный массив 5x6 в виде компонента StringGrid, кнопка «Расчет», кнопка «Случайные значения» и компонент «Memo» для отображения текста варианта задания. Кнопка «Случайные значения» заполняет массив случайными значениями от 0 до 100. Кнопка «Расчет» выполняет обработку массива по заданному в варианте алгоритму.

Найти максимальный элемент второй строки таблицы и заменить его на сумму элементов второго столбца

@Puporev · 20.05.2012, 18:05

Delphi

var
  Form1: TForm1;
  a:array[1..n,1..m] of integer;
  implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
 begin
  a[i,j]:=random(101);
  StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);
 end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,mx:byte;
     sm:integer;
begin
mx:=a[2,1];
j:=1;
for i:=1 to m do
if a[2,i]>mx then
 begin
  mx:=a[2,i];
  j:=i;
 end;
Edit1.Text:='Максимальный элемент в строке 2='+IntToStr(mx);
sm:=0;
for i:=1 to n do
sm:=sm+a[i,2];
Edit2.Text:='Сумма элементов в столбце 2='+IntToStr(sm);
a[2,j]:=sm;
for i:=1 to n do
for j:=1 to m do
StringGrid2.Cells[j-1,i-1]:=IntToStr(a[i,j]);
end;

@alexander91 0 / 0 / 0 Регистрация: 20.05.2012 Сообщений: 11
		1
	Найти максимальный элемент второй строки таблицы и заменить его на сумму элементов второго столбца 20.05.2012, 15:37. Показов 1407. Ответов 1 Метки нет (Все метки) Имеется двухмерный массив 5x6 в виде компонента StringGrid, кнопка «Расчет», кнопка «Случайные значения» и компонент «Memo» для отображения текста варианта задания. Кнопка «Случайные значения» заполняет массив случайными значениями от 0 до 100. Кнопка «Расчет» выполняет обработку массива по заданному в варианте алгоритму. Найти максимальный элемент второй строки таблицы и заменить его на сумму элементов второго столбца 0

Опции темы

Найти максимальный элемент второй строки таблицы и заменить его на сумму элементов второго столбца

Решение