В матрице А(6,6) найти строку с наименьшим элементом и поменять её со столбцом с наибольшим

@Arman808 · Регистрация: 16.03.2017

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

В матрице А(6,6) найти строку с наименьшем элементом и поменять его со столбцом с наибольшим числом положительных элементов. Напишите код программы

@YuryK · 16.03.2017, 08:20

Здесь Форум Delphi и базы данных. У вас какая СУБД для хранения матрицы?

@ZX Spectrum-128 · 16.03.2017, 09:18

Комментарий модератора

Arman808, внимательно выбирайте раздел для размещения ваших заданий.

@Puporev · 16.03.2017, 09:56

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const n=6;
var a:array[1..n,1..n] of integer;
    i,j,imn,jmx,mn,mx,k:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j]:=-50+random(101);
  StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
 end;
mn:=a[1,1];
imn:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<mn then
 begin
  mn:=a[i,j];
  imn:=i;
 end;
Label3.Caption:='Минимальный элемент='+inttostr(mn)+' в строке '+inttostr(imn);
mx:=0;
jmx:=0;
for j:=1 to n do
 begin
  k:=0;
  for i:=1 to n do
  if a[i,j]>0 then inc(k);
  if k>mx then
   begin
    mx:=k;
    jmx:=j;
   end;
 end;
Label4.Caption:='Максимальное число положительных='+inttostr(mx)+' в столбце '+inttostr(jmx);
Label2.Caption:='Обмен строки '+inttostr(imn)+' и столбца '+inttostr(jmx);
for i:=1 to n do
 begin
  k:=a[imn,i];
  a[imn,i]:=a[i,jmx];
  a[i,jmx]:=k;
 end;
for i:=1 to n do
for j:=1 to n do
StringGrid2.Cells[j-1,i-1]:=inttostr(a[i,j]);
end;

@Arman808 0 / 0 / 0 Регистрация: 16.03.2017 Сообщений: 2
		1
	В матрице А(6,6) найти строку с наименьшим элементом и поменять её со столбцом с наибольшим 16.03.2017, 07:22. Показов 1206. Ответов 3 Метки нет (Все метки) В матрице А(6,6) найти строку с наименьшем элементом и поменять его со столбцом с наибольшим числом положительных элементов. Напишите код программы 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	16.03.2017, 08:20	2
	Здесь Форум Delphi и базы данных. У вас какая СУБД для хранения матрицы? 0

	16.03.2017, 09:56

Опции темы

В матрице А(6,6) найти строку с наименьшим элементом и поменять её со столбцом с наибольшим

Решение