Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2016, 21:09   #1
Дюша Метелкин
Пользователь
 
Регистрация: 21.03.2016
Сообщений: 27
По умолчанию В двумерном целочисленном массиве удалить все столбцы в которых четное количество нечетных элементов

В двумерном целочисленном массиве удалить все столбцы в которых четное количество нечетных элементов.
Дюша Метелкин вне форума Ответить с цитированием
Старый 21.03.2016, 21:54   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
uses crt;
var a : array[1..5,1..5]of integer;
i,j,k,coln,ii,jj:integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   begin
     a[i,j]:=random(9)+2;
     write(a[i,j]:5);
   end;
  writeln
 end;
 j:=1;coln:=5;
 while j<=coln do
  begin
    k:=0;
    for i:=1 to 5 do if odd(a[i,j]) then inc(k);
    if not (odd(k)) then
     begin
      {col deleting...}
      for ii:=1 to 5 do
       for jj:=j+1 to coln do
          a[ii,jj-1]:=a[ii,jj];
      dec(coln);
     end else
     inc(j);
  end;
  writeln;
  for i:=1 to 5 do
  begin
   for j:=1 to coln do
    write(a[i,j]:5);
   writeln;
  end;
 readln;
end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Приложение поиска суммы нечетных элементов побочной диагонали в двумерном массиве deceaseq C++ Builder 8 29.05.2015 22:00
Удалить из матрицы все столбцы, в которых нет отрицательных элементов(С++) Kristino4ka Помощь студентам 0 15.12.2012 17:48
Упорядочить по убыванию столбцы матрицы, все элементы которых присутствуют в массиве. Gluck231 Помощь студентам 0 19.01.2012 09:59
В целочисленном одномерном массиве A(N) найти номер последнего максимального значения среди нечетных элементов (Pascal) Vladimir Ryabov Помощь студентам 0 27.11.2011 13:59
В двумерном массиве вставить перед всеми столбцами, в которых нет отрицательных элементов, второй столбец razor052 Паскаль, Turbo Pascal, PascalABC.NET 2 16.04.2010 14:33