Создать новую матрицу из первой: оставить на тех же местах строках положительные элементы, а отрицательные заменить на *

@GGG12311 · Регистрация: 12.06.2018

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

Создать квадратную матрицу в стринггрид с отрицательными и положительными элементами
Создать ещё одну новую матрицу и из первой матрицы оставить на тех же местах строках положительные элементы, а отрицательные заменить на *

@Puporev · 26.02.2019, 11:03

А ноли?

Добавлено через 4 минуты
Сделаем так.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const n=10;
var a:array[1..n,1..n] of integer;
    i,j:byte;
begin
randomize;
with StringGrid1 do
 begin
  colcount:=n;
  rowcount:=n;
  defaultcolwidth:=25;
  fixedcols:=0;
  fixedrows:=0;
 end;
with StringGrid2 do
 begin
  colcount:=n;
  rowcount:=n;
  defaultcolwidth:=25;
  fixedcols:=0;
  fixedrows:=0;
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  repeat
  a[i,j]:=-10+random(21);
  until a[i,j]<>0;
  StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
  if a[i,j]>0 then StringGrid2.Cells[j-1,i-1]:=inttostr(a[i,j])
  else StringGrid2.Cells[j-1,i-1]:='*';
 end;
end;

@GGG12311 · 26.02.2019, 11:43 **[ТС]**

Ноль с положительными элементами

@GGG12311 0 / 0 / 0 Регистрация: 12.06.2018 Сообщений: 5
		1
	Создать новую матрицу из первой: оставить на тех же местах строках положительные элементы, а отрицательные заменить на * 26.02.2019, 10:43. Показов 428. Ответов 2 Метки нет (Все метки) Создать квадратную матрицу в стринггрид с отрицательными и положительными элементами Создать ещё одну новую матрицу и из первой матрицы оставить на тех же местах строках положительные элементы, а отрицательные заменить на * 0

@GGG12311 0 / 0 / 0 Регистрация: 12.06.2018 Сообщений: 5
	26.02.2019, 11:43 [ТС]	3
	Ноль с положительными элементами 0