В массиве А (n,m) найти:
а) номер последнего положительного элемента;
б) разность между наибольшим и наименьшим элементами;
в) заменить последний положительный элемент на найденную разность.
Приложение форме.
Есть код на 2 первые кнопки.
var
Form1: TForm1;
massiv,massiv1: array of array of integer;
k, n:integer;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
k:=strtoInt(InputBox('Размер массива', 'Введите число строк в массиве','0'));
n:=strtoInt(InputBox('Размер массива', 'Введите число столбцов в массиве','0'));
SetLength(massiv,n,k);
SetLength(massiv1,n,k);
//установка размера массива
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
for i:=0 to n-1 do
for j:=0 to k-1 do
massiv[i,j]:=strtoint(InputBox('Элементы массива', 'Введите'+inttostr(i)+inttostr(j)+' элемент массива','0'));
//Ввод элементов массива
end;
