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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2012, 20:23   #1
FredPerry
Пользователь
 
Аватар для FredPerry
 
Регистрация: 06.07.2010
Сообщений: 18
Сообщение Отрезки массива

Дан одномерный массивиз 12 элементов. Рассмотреть отрезки массива, состоящие из элементов кратных 3(элементы кратные 3 должны стоять подряд.) Найти наибольшую из длин рассматриваемых отрезков.
Код:
Program laba;
uses crt;
var
	a : array[1..12] of integer;
	i, j, max, buf, k, n : integer;
function kr(x : integer) : boolean;
begin
	if x mod 3 = 0 then
		kr := true
	else
		kr := false;
end;
begin
	clrscr;
	for i := 1 to 12 do
	begin
		WriteLn('a[', i, '] = ');
		ReadLn(a[i]);
	end;

	max := 1;

	for i := 1 to 12 do
	begin
		if kr(a[i]) then
		begin
			j := j + 1;
			n := n + 1;
		end
		else
			k := i;
		if j > max then
			max := n;
	end;
end.
FredPerry вне форума Ответить с цитированием
Старый 21.05.2012, 20:29   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

странный код
Код:
function kr(x : integer) : boolean;
begin
	kr:= x mod 3 = 0 
end;
зачем вам
Цитата:
j := j + 1;
не проще ли
Код:
if n > max then begin
			max := n;
n:=0;
end;
Код:
n:=0 //проинициализировать  забыли и последнюю последовательность если она кончается числом кратным 3 рассмотреть нужно
проверяйте)
Код:
var
  a:array[1..12] of integer;
  i,n,m:integer;
begin
  n:=0;m:=0;
  For i:=1 to 12 do
    begin
      readln(a[i]);
      if (a[i] mod 3=0) then
        begin
          n:=n+1;
          if (n>m) then m:=n
        end
      else
        n:=0;
    end;
  For i:=1 to 12 do
  write(a[i],' ');
  writeln;
  writeln(m)
end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 21.05.2012 в 20:40.
Mad_Cat вне форума Ответить с цитированием
Старый 21.05.2012, 20:47   #3
FredPerry
Пользователь
 
Аватар для FredPerry
 
Регистрация: 06.07.2010
Сообщений: 18
По умолчанию

Спасибо, можно закрывать
FredPerry вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отрезки Nikita++ Помощь студентам 5 17.10.2013 05:20
Отрезки на числовой оси wOOp Помощь студентам 3 11.05.2012 16:33
пролог отрезки hunter03 Помощь студентам 3 11.11.2011 18:36
Отрезки Иоанн IV Грозный Помощь студентам 0 10.01.2011 19:15
Отрезки VictorS Помощь студентам 9 16.05.2009 18:15