Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


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

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


Ответ
 
Опции темы Поиск в этой теме
Старый 24.12.2012, 09:29   #1
KIRILOW
Форумчанин
 
Регистрация: 28.10.2012
Сообщений: 118
Стрелка Объяснить

Вот код.Вопрос:что обозначает каждый из этих операторов(которые обведены? (для чего,зачем они)
Код:
const n = 10;
var
i,j,c,max,maxj:integer;
a:array[1..n,1..n]of integer;
begin
  for i:=1 to n do
    begin
        for j:=1 to n do 
        begin
            if (i>=j)and(i<=n+1-j) then
                a[i,j]:=0
            else
                a[i,j]:=random(n)+1;
        end;
    end;

    for i:=1 to n do
    begin
        for j:=1 to n do 
        begin
            write(a[i,j]:4);
        end;
        writeln;
    end;

    max := 0;
    maxj := 1;
    for j:=1 to n do
    begin
        c := 0;
        for i:=1 to n do 
        begin

            if(a[i,j] = 0) then
            begin
                inc(c);
            end;
        end;

        if(c > max) then
        begin
            max := c;
            maxj := j;
        end;
    end;
    
    writeln;
    writeln('max kolvo v stolbce = ', maxj);
    
    writeln;
    writeln('Stolbec:');
    for i:=1 to n do 
    begin
        write(a[i,maxj]:4);
        writeln;
    end;
    
    readln;
end.
KIRILOW вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 20000 рублей в месяц

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Объяснить с++ программы МихаилД Фриланс 3 26.06.2012 02:06
Как объяснить? Xenm Свободное общение 11 21.09.2010 10:27
Как объяснить прогу Devid92 Помощь студентам 0 31.05.2010 17:57
маятник, объяснить manuk Помощь студентам 0 26.05.2010 07:21
Можете объяснить? Bayram_662 Компоненты Delphi 1 12.01.2010 22:51


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS