Из матрицы целых чисел удалить столбец, значения всех элементов которого равно 0 - Turbo Pascal

  1. Из матрицы целых чисел удалить столбец, значения всех элементов которого равно 0 Исходная: 11 12 0 14 21 22 0 24 31 32 0 34 41 42 0 44 Конечная: 11 12 14 21 22 24 31 32 34 41 42 44


textual

Код к задаче: «Из матрицы целых чисел удалить столбец, значения всех элементов которого равно 0 - Turbo Pascal»

Uses Crt;
Const nmax=20;
Var A:array[1..nmax,1..nmax] of integer;
    i,j,n,m,jk,k:byte;
    t:integer;
Begin
    ClrScr;
    write('n,m<=',nmax,': ');readln(n,m);
    For i:=1 to n do
     For j:=1 to m do
     Begin
       write('A[',i,',',j,'] = ');
       readln(A[i,j]);
     End;
    ClrScr;
    writeln('Исходная');
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]:4);
      writeln;
    End;
    j:=1;
    While (j<=m)and(jk=0) do
    Begin
      k:=0;
      For i:=1 to n do
       if A[i,j]=0 then inc(k);
      if k=n then jk:=j;
      inc(j);
    End;
    if jk=0 then writeln('Нету столбца из нулей')
    else
    Begin
      dec(m);
      For j:=jk to m do
       For i:=1 to n do
        A[i,j]:=A[i,j+1];
      writeln('Конечная');
      For i:=1 to n do
      Begin
        For j:=1 to m do
         write(A[i,j]:4);
        writeln;
      End;
    End;
    readln;
End.

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.933 из 5



Похожие ответы
  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

  1. Найти номер первого из столбцов, не содержащих элементов, меньших s. (матрица)

  1. Здравствуйте, Вы не могли бы помочь с задачей контрольной работы? "Составить программу. В списке целых чисел удалить из каждой группы подряд идущих одинаковых элементов все, кроме одного." Буду премного благодарен. ------------------------------------------------ С Уважением, superuser!

  1. Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы. Все что находил все было не рабочим, помогите пожалуйста все-таки ее решить)

  1. Дана прямоугольная матрица A(n*m). Заменить наименьший элемент каждой строки, начиная со второй, наибольшим элементом предыдущей строки.

  1. Помогите дописать в задаче сортировку пузырьком и если можно с пояснением как она будет применяться. Условие задачи: Характеристикой столбца целочисленной матрицы назовем сумму модулей его отрицательных нечетных элементов. Переставляя столбцы матрицы, расположить их в соответствии с ростом характеристик. Вот какой кусок кода получился у меня (Программу я стал писать через процедуры и функции), что бы легче было понять мою идею, я оставлю сбоку к элементам когда свои комментарии:

  1. В прямоугольной матрице размером М*К, , имеющей имя ММ содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму положительных элементов в каждом столбце. Определить столбец с максимальным значением этой суммы и вывести его номер на экран. Как сделать? Сижу туплю капец!

  1. Создать двумерный массив и вывести его на печать в виде матрицы.Выполнить задание: (i,j=1..4) 1) xi,j = i tan(pi/5) / 2+sin(ij) -вычислить сумму элементов столбцов. 2)xi,j=ctg(pi/5)+0,4 / 56+sin j -вычислить произведение элементов столбцов. Что тут означает вывести двумерный массив на печать? И что нужно делать с примерами 1 и 2?

  1. Как найти суму элементов в тех столбцах в которых нет отрицательных чисел;минимум среди сумм модулей элементов диагоналей параллельных к побочной диагонали матрицы.Матрица квадратная.