Переписать наибольшие, отрицательные, строк матрицы в одномерный массив

@Incognito0202 · Регистрация: 19.01.2021

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

Помогите пожалуйста с данным заданием:

Переписать наибольшие, отрицательные, элементы каждой строки матрицы DS{m, n} в одномерный массив D. m=4, n=2.

@Puporev · 19.01.2021, 18:41

Сообщение от Incognito0202

наибольшие, отрицательные,

Это максимальные и отрицательные
-2 8 -3 4
или максимальные отрицательные?
-2 8 -3 4

@Incognito0202 · 19.01.2021, 18:44 **[ТС]**

Максимальные и отрицательные

@Puporev · 19.01.2021, 19:29

Pascal

const m=4;
      n=2;
var ds:array[1..m,1..n] of integer;
    d:array[1..m*n] of integer;
    k,i,j,mx:integer;
begin
writeln('Введите ',m*n,' элементов матрицы целых положительных и отрицательных чисел');
for i:=1 to m do
for j:=1 to n do
 begin
  write('ds[',i,',',j,']=');
  readln(ds[i,j]);
 end;
writeln('Введенная матрица');
k:=0;
for i:=1 to m do
 begin
   mx:=ds[i,1];
   for j:=1 to n do
   if ds[i,j]>mx then mx:=ds[i,j];
   inc(k);
   d[k]:=mx;
   for j:=1 to n do
    begin
     write(ds[i,j]:4);
     if (ds[i,j]<0) and(ds[i,j]<>mx) then
      begin
       inc(k);
       d[k]:=ds[i,j];
      end;
    end;
  writeln;
 end;
writeln('Наибольшие и отрицательные элементы строк матрицы');
for i:=1 to k do
write(d[i]:4);
end.

@Incognito0202 · 19.01.2021, 19:31 **[ТС]**

Большое спасибо.

@Incognito0202 1 / 1 / 0 Регистрация: 19.01.2021 Сообщений: 13
		1
	Переписать наибольшие, отрицательные, строк матрицы в одномерный массив 19.01.2021, 18:26. Показов 1706. Ответов 4 Метки нет (Все метки) Помогите пожалуйста с данным заданием: Переписать наибольшие, отрицательные, элементы каждой строки матрицы DS{m, n} в одномерный массив D. m=4, n=2. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.01.2021, 18:41	2
	Сообщение от Incognito0202 наибольшие, отрицательные, Это максимальные и отрицательные -2 8 -3 4 или максимальные отрицательные? -2 8 -3 4 0

@Incognito0202 1 / 1 / 0 Регистрация: 19.01.2021 Сообщений: 13
	19.01.2021, 18:44 [ТС]	3
	Максимальные и отрицательные 0

@Incognito0202 1 / 1 / 0 Регистрация: 19.01.2021 Сообщений: 13
	19.01.2021, 19:31 [ТС]	5
	Большое спасибо. 0

Переписать наибольшие, отрицательные, строк матрицы в одномерный массив

Решение