Одномерный массив. Есть ли в одномерном массиве три подряд идущих одинаковых элемента

@proger_noob · Регистрация: 31.01.2012

Author24 — интернет-сервис помощи студентам

помогите пожалуйста решить задачу. Спасибо заранее
Если в одномерном массиве имеются три подряд идущих одинаковых элемента, то переменной r присвоить значение истина.

@UserABC · 25.04.2012, 22:32

Pascal

uses crt;
var a: Array [1..20] of integer;
i,mi,mx:integer; r:boolean;
 
begin
 
for i:=1 to 20 do begin
writeln('ââåäèòå ', i, ' ýëåìåíò = ');
readln(a[ i ]);  end;
 
mi := 1;
mx := a[ 1 ];
r:=false;
for i:=2 to 20 do
if (a[ i ] = mx) then
begin
inc(mi);
if (mi=3) then r:=true;
end
else
begin
mi := 1;
mx := a[ i ];
end;
writeln(r);
end.

@proger_noob 0 / 0 / 0 Регистрация: 31.01.2012 Сообщений: 53
		1
	Одномерный массив. Есть ли в одномерном массиве три подряд идущих одинаковых элемента 25.04.2012, 21:34. Показов 1929. Ответов 1 Метки нет (Все метки) помогите пожалуйста решить задачу. Спасибо заранее Если в одномерном массиве имеются три подряд идущих одинаковых элемента, то переменной r присвоить значение истина. 0

	25.04.2012, 22:32

Одномерный массив. Есть ли в одномерном массиве три подряд идущих одинаковых элемента

Решение