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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.01.2009, 23:25   #1
Катюня
 
Регистрация: 20.01.2009
Сообщений: 3
Восклицание В массиве G(6;8) определить номер столбца с наименьшим количеством нулей.

Пожалуйста решите простенькую задачу на Паскале... Очень нужно!!!

В массиве G(6;8) определить номер столбца с наименьшим количеством нулей.
Катюня вне форума Ответить с цитированием
Старый 20.01.2009, 23:34   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Код:
uses crt;
const m=6; n=8;
var
G : array[1..m,1..n] of integer;
i,j,numj,predk,k : integer;
begin
clrscr;

randomize;
for i:=1 to m do
  begin
  for j:=1 to n do
   begin
   G[i,j] := random(7)-3;
   write(G[i,j]:4);
   end;
  writeln;
  end;
writeln('------');
{--------}
numj:=0;
predk := 0;
for j:=1 to n do
  begin
  k:=0;
  for i:=1 to m do
    if G[i,j] = 0 then inc(k);
  if k>predk then
    begin
    predk := k;
    numj := j;
    end;
  end;
if numj >0 then writeln('Nomer stolbca: ',numj,'(',predk,' nulej)')
else writeln('Net stolbcov, soderzhashih nuli');
readln;
end.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 21.01.2009, 06:26   #3
Катюня
 
Регистрация: 20.01.2009
Сообщений: 3
Хорошо

Огромно спасибо!!! очень выручил)
Катюня вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как определить номер клиента leontv Работа с сетью в Delphi 11 28.03.2010 23:19
скалярное произведение строки с наибольшим элементом и столбца с наименьшим элементом katya36 Помощь студентам 15 20.12.2008 17:48
. Среди всех нецелых элементов этого массива найти наименьший и определить его номер в массиве Паскалька^^ Паскаль, Turbo Pascal, PascalABC.NET 3 19.12.2008 14:18
ГСЧ с большим количеством нулей Frog25 Общие вопросы C/C++ 6 26.06.2008 18:22
Определить номер строки с наибольшей характеристикой. jenja Общие вопросы Delphi 2 26.03.2008 21:11