Вывести в обратном порядке все строки, состоящие только из чисел одного знака

@louna665 · Регистрация: 25.02.2020

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

Задача:

Дан двумерный массив целых чисел. Вывести в обратном порядке все строки, состоящие только из чисел одного знака.

Формат ввода:

На первой строке, заданы два натуральных числа, не превосходящие 50 - количество строк и столбцов соответственно.
Далее массив целых чисел задан построчно, через 1 пробел. Числа в диапазоне от -2³¹ до 2³¹-1.

Формат вывода:

Выбранные строки массива, через 1 пробел.

Пример:

Input	Result
4 3 1 2 3 -4 -6 -8 7 6 0 -8 -6 0	-4 -6 -8 1 2 3

Прошу не копировать эту программу со знаний, поскольку там неправильно.

@Puporev · 22.03.2020, 06:36

Pascal

var a:array[1..50,1..50]of longint;
    m,n,i,j:integer;
begin
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
for i:=m downto 1 do
 begin
  j:=2;
  while(j<=n)and(a[i,j]*a[i,j-1]>0) do inc(j);
  if j>n then
   begin
    for j:=1 to n do
    write(a[i,j],' ');
    writeln;
   end;
 end;
end.

В условии не написано что выводить если строк по условию нет.

@canadamoscow · 24.03.2020, 16:27

Pascal

begin    
  var (n,m) := ReadlnInteger2('Введите n и m=');;  
  var a:= MatrRandom(n, m, -99, 99).Println(5); Println;
  for var f := n-1 downto 0 do
    begin
       if (a.row(f).Where(x->x<0).Count = m) or 
       (a.row(f).Where(x->x>0).Count = m) then
       a.row(f).Println('  ');
     end;
end.

@bormant · 24.03.2020, 21:33

canadamoscow,
вы ошиблись разделом. В PascalABC этот код не является допустимым.

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	24.03.2020, 21:33	4
	canadamoscow, вы ошиблись разделом. В PascalABC этот код не является допустимым. 0

Вывести в обратном порядке все строки, состоящие только из чисел одного знака

Решение