Лабараторная работа 3 (часть 2). Задание 9.

task329.pas

program task329;

{$MODE DELPHI}

uses SysUtils;

var Numbers: array of integer;
var Index: integer;
var Count: integer;

begin
	Index := 0;
	while true do
	begin
		while true do
		begin
			try
				SetLength(Numbers, Index + 1);
				Write('Please, enter #', Index + 1, ' value (or 0 for exit): ');
				ReadLn(Numbers[Index]);
				Break;
			except
				on E: Exception do
				begin
					WriteLn('Value should be a number!');
					Continue;
				end;
			end;
		end;
		if Numbers[Index] = 0 then Break;
		Index := Index + 1;
	end;
	
	Count := 0;
	for Index := 1 to Length(Numbers) -1 do
	begin
		if Numbers[Index] = Numbers[Index - 1] then Count := Count + 1;
	end;
	
	WriteLn('Count: ', Count);
	WriteLn('Enter something for exit...');
	ReadLn;
end.